(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    544687,      12458]
NotebookOptionsPosition[    525152,      11880]
NotebookOutlinePosition[    525536,      11897]
CellTagsIndexPosition[    525493,      11894]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"$Path", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{"$Path", ",", "\"\<E:\\\\HOME\\\\anton\\\\roundabout\>\""}], 
    "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 StyleBox[
  RowBox[{"<<", "ACPackages`"}],
  FormatType->StandardForm,
  FontFamily->"Courier New"]], "Input",
 CellChangeTimes->{
  3.447093459984375*^9, 3.447093514265625*^9, {3.447946288020125*^9, 
   3.44794628859825*^9}, {3.4632208968608*^9, 3.4632209027798*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$HistoryLength", "=", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.4244153095550003`*^9, 3.424415313883*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetWorkDir", "[", "\"\<\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.392103762428*^9, 3.392103792492*^9}, 3.392186604259*^9, 
   3.392192778131*^9, 3.3922064777390003`*^9, {3.392213210408*^9, 
   3.39221322699*^9}, 3.392214278627*^9, 3.392215501159*^9, {
   3.424673931508*^9, 3.424673932123*^9}, {3.4470700249848003`*^9, 
   3.4470700304098*^9}}],

Cell[BoxData["\<\"D:\\\\\:0420\:0430\:0431\:043e\:0442\:0430\\\\Programs\\\\\
torgrid\"\>"], "Output",
 CellChangeTimes->{3.463472648078125*^9, 3.463473284796875*^9, 
  3.46371118678125*^9, 3.464431289645*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"SetDirectory", "[", "\"\<n:/Anton/torgrid/tor/1\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.427446038309*^9, 3.427446084507*^9}, {
   3.4280446303599997`*^9, 3.4280446352530003`*^9}, {3.428044676012*^9, 
   3.428044694442*^9}, {3.428045638906*^9, 3.428045641476*^9}, {
   3.42804576063*^9, 3.4280457607130003`*^9}, {3.428045968962*^9, 
   3.4280459693389997`*^9}, {3.428046256126*^9, 3.428046256211*^9}, {
   3.42804821137*^9, 3.428048214849*^9}, {3.42804868771*^9, 
   3.4280486877609997`*^9}, {3.428049400927*^9, 3.428049401006*^9}, {
   3.428050659255*^9, 3.4280506602139997`*^9}, 3.4280513577320004`*^9, {
   3.428052728262*^9, 3.428052728708*^9}, {3.44826133825675*^9, 
   3.448261342428625*^9}, {3.448268488913*^9, 3.4482684894755*^9}}],

Cell[BoxData[
 RowBox[{"SetDirectory", "[", 
  "\"\<\\\\\\\\amazonka\\\\home\\\\Anton\\\\programs\\\\torgrid\\\\2008.08.15\
\\\\1\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.427446038309*^9, 3.427446084507*^9}, {
   3.4280446303599997`*^9, 3.4280446352530003`*^9}, {3.428044676012*^9, 
   3.428044694442*^9}, {3.428045638906*^9, 3.428045641476*^9}, {
   3.42804576063*^9, 3.4280457607130003`*^9}, {3.428045968962*^9, 
   3.4280459693389997`*^9}, {3.428046256126*^9, 3.428046256211*^9}, {
   3.42804821137*^9, 3.428048214849*^9}, {3.42804868771*^9, 
   3.4280486877609997`*^9}, {3.428049400927*^9, 3.428049401006*^9}, {
   3.428050659255*^9, 3.4280506602139997`*^9}, 3.4280513577320004`*^9, {
   3.428052728262*^9, 3.428052728708*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetWorkDir", "[", "\"\<2008.10.18/Re1000\>\"", "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.432620161359375*^9, 3.4326201614375*^9}, {
   3.43288992953125*^9, 3.43288992965625*^9}, {3.432962150671875*^9, 
   3.432962160265625*^9}, {3.432974034453125*^9, 3.432974041421875*^9}, {
   3.43297416690625*^9, 3.4329741686875*^9}, {3.432977312046875*^9, 
   3.432977313453125*^9}, {3.433067609939402*^9, 3.4330676100954657`*^9}, {
   3.433070089312564*^9, 3.4330700902021284`*^9}, {3.4331386985757504`*^9, 
   3.4331387004507504`*^9}, {3.4331487439038754`*^9, 
   3.4331487490913754`*^9}, {3.43322000565625*^9, 3.4332200083125*^9}, {
   3.43322012021875*^9, 3.43322012253125*^9}, {3.433221530625*^9, 
   3.433221530703125*^9}, {3.433227953734375*^9, 3.433227953796875*^9}, {
   3.433229359765625*^9, 3.433229368078125*^9}, {3.43323256365625*^9, 
   3.433232563875*^9}, {3.43323295175*^9, 3.43323295190625*^9}, {
   3.43323391059375*^9, 3.433233910765625*^9}, 3.433235676171875*^9, 
   3.433236538984375*^9, {3.43348465853125*^9, 3.433484658765625*^9}, {
   3.433490255765625*^9, 3.43349025978125*^9}, 3.433490439625*^9, 
   3.43349374309375*^9, {3.43349380575*^9, 3.433493806734375*^9}, {
   3.433575223921875*^9, 3.4335752240625*^9}, {3.433577208765625*^9, 
   3.433577208953125*^9}, {3.43357735096875*^9, 3.433577353140625*^9}, {
   3.4335821700625*^9, 3.4335821734375*^9}, {3.4338335148125*^9, 
   3.433833527140625*^9}, {3.4470648646078*^9, 3.4470648664147997`*^9}, {
   3.4470655975198*^9, 3.4470656021118*^9}, {3.4470700340758*^9, 
   3.4470700379737997`*^9}, {3.447947684363875*^9, 3.447947684863875*^9}, 
   3.4479610325045*^9, {3.45389272184375*^9, 3.453892724453125*^9}, {
   3.460353831145*^9, 3.460353843418*^9}, {3.460354266745*^9, 
   3.46035426962*^9}, {3.460354639965*^9, 3.460354643535*^9}, 
   3.460701736921875*^9, 3.46070411934375*^9, 3.46070460740625*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetWorkDir", "[", "\"\<2009.09.21\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.463915042015625*^9, 3.463915043234375*^9}, 
   3.464423331328125*^9}],

Cell[BoxData["\<\"D:\\\\\:0420\:0430\:0431\:043e\:0442\:0430\\\\Programs\\\\\
torgrid\\\\2009.09.21\"\>"], "Output",
 CellChangeTimes->{3.46391504346875*^9, 3.464423331640625*^9, 
  3.4671018354688*^9, 3.4673740812679996`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetWorkDir", "[", "\"\<2009.08.18\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.460695902390625*^9, 3.4606959105*^9}, {
   3.460708453265625*^9, 3.4607084546875*^9}, {3.460714541625*^9, 
   3.460714548296875*^9}, {3.4607844079375*^9, 3.460784408015625*^9}, {
   3.4611427323125*^9, 3.46114273259375*^9}, {3.46131430465625*^9, 
   3.461314304734375*^9}, {3.462090604578125*^9, 3.4620906064375*^9}, {
   3.462263321453125*^9, 3.46226332171875*^9}, {3.4622701333125*^9, 
   3.46227013365625*^9}, {3.462271514234375*^9, 3.462271528*^9}, 
   3.462272376921875*^9, {3.462272935953125*^9, 3.462272938296875*^9}, {
   3.4623608448125*^9, 3.46236084646875*^9}, 3.46236093246875*^9, {
   3.462509996484375*^9, 3.462509998640625*^9}, {3.4630839250625*^9, 
   3.463083925078125*^9}, 3.46322082315625*^9, 3.46322304040625*^9, {
   3.463283459796875*^9, 3.463283460203125*^9}, 3.4634613409375*^9, {
   3.46347451159375*^9, 3.46347452703125*^9}}],

Cell[BoxData["\<\"D:\\\\Home\\\\Anton\\\\programs\\\\torgrid\\\\2009.08.18\"\>\
"], "Output",
 CellChangeTimes->{
  3.4620906068125*^9, 3.462096157265625*^9, 3.462263322421875*^9, 
   3.462270134234375*^9, 3.462270270515625*^9, {3.462271515*^9, 
   3.46227152828125*^9}, 3.462272377171875*^9, 3.462272938765625*^9, 
   3.462360846875*^9, 3.46236093278125*^9, 3.46250999903125*^9, 
   3.462524675125*^9, 3.463083925828125*^9, 3.463098470015625*^9, 
   3.4632100685*^9, 3.46322082340625*^9, 3.4632230410625*^9, 
   3.46328346053125*^9, 3.463461341046875*^9, 3.463472938078125*^9, {
   3.46347451203125*^9, 3.46347452715625*^9}, 3.463480555984375*^9, 
   3.463714213265625*^9, 3.463916714125*^9, 3.46434539190625*^9, 
   3.464410424046875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetWorkDir", "[", "\"\</stationars/Re=1k=0.15dp\>\"", "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.3921027052790003`*^9, 3.392102707017*^9}, {
  3.393738121777*^9, 3.3937381237*^9}, {3.393744975951*^9, 3.393744976108*^9}}
  ],

Cell[CellGroupData[{

Cell["\:0427\:0442\:0435\:043d\:0438\:0435 \:0441\:043f\:0438\:0441\:043a\
\:043e\:0432", "Section",
 CellChangeTimes->{{3.463728578296875*^9, 3.463728579015625*^9}, {
  3.46372862678125*^9, 3.463728631109375*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"AverageTimeProfil", "[", 
    RowBox[{"l_List", ",", "t_", ",", 
     RowBox[{"dt_:", "1"}]}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"Apply", "[", 
       RowBox[{"Plus", ",", "#"}], "]"}], 
      RowBox[{"Length", "[", "#", "]"}]], "&"}], "[", 
    RowBox[{"Map", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", 
      RowBox[{"Select", "[", 
       RowBox[{"lv", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"t", "\[LessEqual]", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "<", 
           RowBox[{"t", "+", "dt"}]}], ")"}], "&"}]}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{"UnsortedUnion", "[", 
     RowBox[{"x_", ",", 
      RowBox[{"ndig_:", "4"}]}], "]"}], ":=", 
    RowBox[{"N", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Reap", "[", 
        RowBox[{
         RowBox[{"Sow", "[", 
          RowBox[{"1", ",", 
           RowBox[{"Round", "[", 
            RowBox[{
             SuperscriptBox["10", "ndig"], "x"}], "]"}]}], "]"}], ",", "_", 
         ",", 
         RowBox[{"#1", "&"}]}], "]"}], "\[LeftDoubleBracket]", "2", 
       "\[RightDoubleBracket]"}], 
      SuperscriptBox["10", 
       RowBox[{"-", "ndig"}]]}], "]"}]}], ";"}],
  FontSize->10]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"Thread", "::", "tdlen"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"lv", "=", 
   RowBox[{"ReadList", "[", "\"\<vv.dat\>\"", "]"}]}], ";", 
  RowBox[{"lv", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"#", "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}],
        "}"}], "&"}], ",", "lv"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ltm", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"First", "/@", "lv"}], "]"}]}], ";"}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Length", "[", "ltm", "]"}], ",", 
   RowBox[{"Last", "[", "ltm", "]"}]}], "}"}]}], "Input"],

Cell[BoxData[
 RowBox[{"PrintAnim", "[", 
  RowBox[{"Rest", "[", 
   RowBox[{"CutList", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", "lv"}], ",", "20"}], 
    "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{3.3921038073599997`*^9}],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"First", "[", "#", "]"}], ",", 
       RowBox[{"Max", "[", 
        RowBox[{"Last", "[", "#", "]"}], "]"}]}], "}"}], "&"}], "/@", "lv"}], 
   ",", "Automatic"}], "]"}]], "Input",
 CellChangeTimes->{3.3921038247609997`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<energy.bak\>\"", ",", 
   RowBox[{"Transpose", "[", "len", "]"}], ",", "\"\<Table\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.43263154525*^9, 3.43263159796875*^9}}],

Cell[BoxData["\<\"energy.bak\"\>"], "Output",
 CellChangeTimes->{{3.43263159084375*^9, 3.432631598703125*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"FileNames", "[", "\"\<en*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.4470648812058*^9, 3.4470648875098*^9}, {
  3.45024557653125*^9, 3.450245577515625*^9}}],

Cell[BoxData[
 RowBox[{"Dynamic", "[", 
  RowBox[{"Refresh", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"len", "=", 
      RowBox[{"Transpose", "[", 
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Import", "[", 
          RowBox[{"\"\<energy.dat\>\"", ",", "\"\<Table\>\""}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"First", "[", "#", "]"}], ">", 
           RowBox[{"-", "1"}]}], "&"}]}], "]"}], "]"}]}], ";", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"len", "=", 
        RowBox[{"len", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"1", ";;", "300"}]}], "]"}], "]"}]}], ";"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"ltm", "=", 
         RowBox[{"First", "[", "len", "]"}]}], ";", 
        RowBox[{"PrintRange", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Drop", "[", 
              RowBox[{"ltm", ",", "1"}], "]"}], ",", 
             RowBox[{"dif", "[", "ltm", "]"}]}], "}"}], "]"}], ",", 
          "Automatic", ",", 
          RowBox[{"PlotLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"5", 
              RowBox[{"Length", "[", "ltm", "]"}]}], ",", 
             RowBox[{"Last", "[", "ltm", "]"}]}], "}"}]}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "lmp", ",", "mdp", ",", "lmvx", ",", "mdvx", ",", "lmvy", ",", 
           "mdvy", ",", "lmvz", ",", "mdvz", ",", "lmqp", ",", "lmqvx", ",", 
           "lmqvy", ",", "lmqvz"}], "}"}], "=", 
         RowBox[{
          RowBox[{
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{"ltm", ",", "#"}], "}"}], "]"}], "&"}], "/@", 
          RowBox[{"Drop", "[", 
           RowBox[{"len", ",", "2"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"PrintRange", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{
               "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
               "/", "3"}], ",", 
              SqrtBox[
               RowBox[{
               "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]]}],
              "}"}], "&"}], "/@", 
           RowBox[{"(", 
            RowBox[{"lmqvx", "+", "lmqvy", "+", "lmqvz"}], ")"}]}], ",", 
          "Automatic", ",", 
          RowBox[{"PlotLabel", "\[Rule]", 
           SqrtBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"lmqvx", "+", "lmqvy", "+", "lmqvz"}], ")"}], 
             "\[LeftDoubleBracket]", 
             RowBox[{
              RowBox[{"-", "1"}], ",", 
              RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]]}]}], "]"}]}]}],
       "}"}]}], "\[IndentingNewLine]", ",", 
    RowBox[{"UpdateInterval", "\[Rule]", "5"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.4470700452888002`*^9, 3.4470700462938004`*^9}, {
  3.4470700808458*^9, 3.4470701553108*^9}, {3.447947547957625*^9, 
  3.4479476316295*^9}, {3.447958752051375*^9, 3.447958753145125*^9}, {
  3.448268530147375*^9, 3.448268551303625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"len", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"Select", "[", 
     RowBox[{
      RowBox[{"Import", "[", "\"\<energy.dat\>\"", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"First", "[", "#", "]"}], "\[GreaterEqual]", "1"}], "&"}]}], 
     "]"}], "]"}]}], ";", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"len", "=", 
     RowBox[{"len", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", 
        RowBox[{"1", ";;", "300"}]}], "]"}], "]"}]}], ";"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{
  3.4603522733389997`*^9, 3.4603536076099997`*^9, 3.4603542729379997`*^9, 
   3.460456954*^9, 3.46069672934375*^9, 3.46078451871875*^9, 
   3.461142740015625*^9, {3.461387101171875*^9, 3.46138710296875*^9}, 
   3.4613907771875*^9, {3.463290577484375*^9, 3.463290577609375*^9}, 
   3.46329079828125*^9, 3.4632986169375*^9, 3.463301194203125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"len", "=", 
    RowBox[{"Transpose", "[", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"Import", "[", 
        RowBox[{"\"\<energy.zip\>\"", ",", "\"\<energy.dat\>\"", ",", 
         RowBox[{"\"\<Elements\>\"", "\[Rule]", "\"\<Table\>\""}]}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{
         RowBox[{"First", "[", "#", "]"}], ">", "0"}], "&"}]}], "]"}], 
     "]"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"len", "=", 
     RowBox[{"len", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", 
        RowBox[{"1", ";;", "300"}]}], "]"}], "]"}]}], ";"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.4600116929328003`*^9, 3.4600117117307997`*^9}, {
  3.4600118221476*^9, 3.4600118226*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"len", "=", 
   SuperscriptBox[
    RowBox[{"Fold", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
          "#2", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ">", 
          RowBox[{"#1", "\[LeftDoubleBracket]", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], ",", 
         RowBox[{"Append", "[", 
          RowBox[{"#1", ",", "#2"}], "]"}], ",", "#1"}], "]"}], "&"}], ",", 
      RowBox[{"{", 
       RowBox[{"First", "[", 
        SuperscriptBox["len", "\[Transpose]"], "]"}], "}"}], ",", 
      SuperscriptBox["len", "\[Transpose]"]}], "]"}], "\[Transpose]"]}], 
  ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ltm", "=", 
   RowBox[{"First", "[", "len", "]"}]}], ";", 
  RowBox[{"PrintRange", "[", 
   RowBox[{
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Drop", "[", 
        RowBox[{"ltm", ",", "1"}], "]"}], ",", 
       RowBox[{"dif", "[", "ltm", "]"}]}], "}"}], "]"}], ",", "All", ",", 
    RowBox[{"PlotLabel", "\[Rule]", 
     RowBox[{"Last", "[", "ltm", "]"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"st", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"First", "[", "#1", "]"}], "\[Equal]", 
      RowBox[{"First", "[", "#2", "]"}]}], "&"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "lmp", ",", "mdp", ",", "lmvx", ",", "mdvx", ",", "lmvy", ",", "mdvy", 
     ",", "lmvz", ",", "mdvz", ",", "lmqp", ",", "lmqvx", ",", "lmqvy", ",", 
     "lmqvz"}], "}"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"ltm", ",", "#"}], "}"}], "]"}], "&"}], "/@", 
    RowBox[{"Drop", "[", 
     RowBox[{"len", ",", "2"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"PrintRange", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
        "/", "3"}], ",", 
       SqrtBox[
        RowBox[{
        "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]]}], "}"}],
      "&"}], "/@", 
    RowBox[{"(", 
     RowBox[{"lmqvx", "+", "lmqvy", "+", "lmqvz"}], ")"}]}], ",", "Automatic",
    ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    SqrtBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"lmqvx", "+", "lmqvy", "+", "lmqvz"}], ")"}], 
      "\[LeftDoubleBracket]", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.392103373968*^9, 3.3921034022209997`*^9}, {
   3.392103843674*^9, 3.3921038501730003`*^9}, {3.392103891106*^9, 
   3.392103908289*^9}, {3.392105610421*^9, 3.3921056302130003`*^9}, 
   3.392109311023*^9, 3.416841352884*^9, {3.419832815217*^9, 
   3.4198328165179996`*^9}, 3.419836634185*^9, 3.4198369467650003`*^9, 
   3.41991287892*^9, 3.419913769072*^9, {3.419913968043*^9, 
   3.419913989046*^9}, 3.419916491995*^9, 3.4199235001514*^9, {
   3.4208813576289997`*^9, 3.420881387415*^9}, {3.4241642685692387`*^9, 
   3.4241642731326942`*^9}, {3.4244039334119997`*^9, 3.424403933884*^9}, {
   3.424404356693*^9, 3.424404357115*^9}, {3.424411860361*^9, 
   3.42441186044*^9}, {3.424412226968*^9, 3.4244122271610003`*^9}, {
   3.424412596288*^9, 3.424412596402*^9}, {3.42441263695*^9, 
   3.424412637166*^9}, {3.4244168389110003`*^9, 3.4244168397200003`*^9}, 
   3.424585285124*^9, {3.424672691505*^9, 3.424672694807*^9}, {
   3.4246732676289997`*^9, 3.42467326804*^9}, {3.42468673473*^9, 
   3.4246867352539997`*^9}, {3.424686768141*^9, 3.424686771001*^9}, 
   3.4246870466099997`*^9, {3.4262423028125*^9, 3.42624231778125*^9}, {
   3.426242354125*^9, 3.426242360296875*^9}, {3.427435991203125*^9, 
   3.427436044796875*^9}, {3.427443807578125*^9, 3.427443808578125*^9}, {
   3.427599604359375*^9, 3.427599646*^9}, {3.427599734609375*^9, 
   3.4275997371875*^9}, {3.4275998006875*^9, 3.427599802390625*^9}, {
   3.42760001428125*^9, 3.427600015859375*^9}, {3.427600715078125*^9, 
   3.427600716046875*^9}, {3.427600843546875*^9, 3.42760084525*^9}, {
   3.427600917390625*^9, 3.427600918625*^9}, {3.4276065765625*^9, 
   3.427606578421875*^9}, {3.429608967265625*^9, 3.42960896865625*^9}, {
   3.42960962046875*^9, 3.429609621796875*^9}, {3.429610036359375*^9, 
   3.429610037328125*^9}, {3.4313325955728526`*^9, 3.4313325959108863`*^9}, {
   3.431961995927*^9, 3.431961999801*^9}, {3.432275526939*^9, 
   3.43227552815*^9}, {3.432278265115*^9, 3.432278265295*^9}, {
   3.4322804120620003`*^9, 3.4322804123710003`*^9}, {3.4325280969988747`*^9, 
   3.4325280987801247`*^9}, {3.4325375935301247`*^9, 
   3.4325375954051247`*^9}, {3.43262017109375*^9, 3.43262017140625*^9}, {
   3.432631612734375*^9, 3.432631627265625*^9}, {3.4328711195*^9, 
   3.432871120484375*^9}, {3.43297427940625*^9, 3.4329742815625*^9}, 
   3.432977323609375*^9, {3.43322205896875*^9, 3.433222103828125*^9}, {
   3.433222193359375*^9, 3.433222202109375*^9}, {3.43322224275*^9, 
   3.4332222474375*^9}, {3.4332240979375*^9, 3.433224102828125*^9}, 
   3.433226666890625*^9, {3.433229533859375*^9, 3.433229534*^9}, {
   3.433574027953125*^9, 3.4335740421875*^9}, 3.448176989921875*^9, {
   3.448346957875*^9, 3.4483469598125*^9}, {3.44834711196875*^9, 
   3.448347115765625*^9}, {3.44835226221875*^9, 3.448352262828125*^9}, {
   3.450244740828125*^9, 3.45024474328125*^9}, 3.4502449115*^9, 
   3.450249620171875*^9, {3.454057207859375*^9, 3.4540572305625*^9}, {
   3.45431498046875*^9, 3.4543149854375*^9}, {3.45560269325*^9, 
   3.455602701265625*^9}, 3.455604508921875*^9, {3.455604607453125*^9, 
   3.455604608328125*^9}, {3.455604879703125*^9, 3.45560488309375*^9}, {
   3.4599343525908003`*^9, 3.4599343766772003`*^9}, 3.4599348855804*^9, 
   3.4599349726907997`*^9, 3.4599351222324*^9, {3.4600116801252003`*^9, 
   3.4600116816696*^9}, {3.46035228746*^9, 3.460352293401*^9}, {
   3.463098483734375*^9, 3.463098484671875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwc13c81t8XAHARSSgilERUmka+kXDs50GJ7L333lt2VnZFySiJqAilSBIq
lJKsVBJSFAmZ+Z37++t5vV/3fu4995zzGY+AtccZO1oaGprUjTQ05FeT+Ufv
beFpoCkQ0tCSdYelO9u/+BxEW3LGqomqgsg64S/OR9Al6c40tRSIz3OPchZD
v/ghwbRKAc3rUjbeEmjRvVoMQIXD49t+aEiiF/bOHOtQhRl2MQtZabSw/tuS
JAoIx7/+s1cWXVE6UXSSAmbyygHr5cn6T2/vmFSF734NlauKZP/yt+9eUkDn
0ZWAdapoLcEfR/ioYKU7tTJCRXu+yT3ASwGZwzylMxrovlZNKzcqpAZY2mw6
jc4+I93VQgWvi897Z7XRW/5KXdegwD4uyqZfumR/+pUruP5qJ/c4vSFx6/mx
Bio0/JdFo2OCZjzy4ZmjOpw76MuTao6m3llrHVKDsC76jjtWZL7k+axVnJ+x
4WWXLZlPyzq+Sw34taNuLzuQ/f68F6SoQcwK9+ghFzS/SU19ghpYyyi5GLij
p/9pi+mqAWue1u48L3JeFpfa/9TBvzT84gtftLyJZ6GOGmTK+S0MBaDHS6o3
P6OC9XqGUrYQdOCRuJhYNSisLBlXCSf5duJcLVSDRxEZlqGRpD6Bmk+q1OC6
jw7TuRgS/6UNmnpUmJcGjbJzJD/S5ht2qwF1xlbrTSI67dHh/cJq8CfkzXT9
ebThKVM6OwqsPYzje5dG4puudKukQv6E91nxLDTNeasNy+qQWXV7KuUS6R/o
ifyqDm8iDczXXSHxemn6ZWqAyhPNK7F5pL4TD78JnASJ0XNu4tdI/CIv0+1P
QaNqhf/9G2R9ZiU1/pNQW+vtKFSKbkzdmuKhATPXeOjdytFvtCVHldWhXErx
b+td4tvK6Z3qcLveZm3wHsk/P7NCBRWkarbf7agh8Tc/CAujwFPJM4a9teT8
HPVqeP6Khhup9PVkf8ncR15qsPtLhJTsE3L+rf2qj9XgsIijrH4Tud5Tet8L
KjxZLyGu3ELGy82LPSiQIBmXkviC9OPF9GFxdTiQcPrOt3ay/3n1f+PqwJkz
2Ln4mlx/1pE5nQr7N61IiHaR/KQtC2M92l4vHqG8J/N3/up8QAW+b63JhX1k
vMnxV5c6SJ2SlF7+QM4nGu3ySh34HOwaDn8m91enp0CWGmxtaaHxHib5nKLd
ulsd9kgWUstGSXxpH+Ta1MCvNihxchwdwdTMyqQO74Wa31pMknrZ6Ehf1oDp
Q3XMXlPkfpGv7U2gAr3cnf3OM2S9+OxvLygwanslsmaOzJd0emKsDhHHNLl2
LpL5yRdvy2jAl1H2wagVEn/Inr1HNMBPZld78RqJv9o6EPt/6XGf11na33i/
M3f816IKpwdvb2yiR5fMlDRwqMOuvVC9ayM6QjNR96c6/PMeYNNnRi/YD0ze
U4PyiF1HnDajPd2Eh7OpEOXnFqfDjq4o9mg6Q4HJs16JspxoLR1+fi0KbO98
4XSKm8wPerQUTgWXjSVGjjvQ8V2L4b1USP+83aiMDy1aeXGZSx2KGpy0fgqg
sxf8H21WBxn6hNhNe9CNEkslv6lgWhGjxSCMpjH6aNBDgZ1yyv9mD6AZ3Vfc
/CgQ9PrOodHD6KEoXZ9ICowFHnRqE0U76ox+3U8B6U6hvfeOogvutX2TpUAK
M+ytP0b84y2NFhX2vjzxrvE42W9k1GEPFRivcUU/lUFvef4pnJ4KvK9KxN4D
mW+Y4HsV73f9tTMdiiR+9WqmhxSwPCs6d0EFPU1JYDulCr8FinkyqOS8HLcF
v1BAdm2TXLkG2vLHEcG3VNjhIqtRqknmmyc5jVOA2bcpKUmbzKcIr2fH52GZ
/aKVLrqvVsCtShUOupw9r2iA5qdpLVhPgfzQvW6yxiSeJKlVzEfunvoLG83Q
45TbylaqoOEt2P/FAh1oJ72jSRXEXQwM+6zRUs/zF6so8Cx4hXXIjuwXKlwj
S4WqP0+Fmx1J/Z8ffM2P+0uF1FW5kPUF2y6EUiCnVezxY3d0mk81C+ZrZ25x
93MvEk95cR1agW+f5ydfYrb1g9VUcN/I9OpJAMm/Edc3JgoYcSvVZAejDQNe
KDxXhQw5+1dVYegXYjxP+6hguFMu6V0Eyed8wy98freFZhdyxZD9lrvu8auD
/RuVU1LnSH1znc3o1WBR323FPJH0i4RM0H9q8EH1ZUfkeVKvs5+jtqmBZRWj
ZHka6XfbZW18Xu/cNFb/KJPk5/GPI75USF75Gtt4keQnaYpyhAolH4O3lOeQ
9Rkf6JpS4PIjNba6XLL/N3+GQCoMhv1++DafrL9dTqWGChNeJzd0XCPXF/Q6
d2F+uF/IPL5B+v2/j2UJFOjbkN54q4TcP0EUPlcKPPS6LPStjPTraQ3+r2ow
8FQ8TO0ucWRTM7sGyGdV5l++R86fOb81QR1ODksfvVdD+sVTPbeeChpB6SJP
asl6D6qHHahgpMleMVdH9ithWF+tBg/XevM5n5D7I+lw+BoV3lbM3GZqIv0c
/96zhAICWR946VtIfbdTAt5RwJPNlJHnBYn/B51pPhW+l4q9ONxO6vGs/N8N
KtCYXN25+zW6Nt6s7BoFwtemJVffkH4VvNrVpwrrwj1ej71Dc8/+qcLvBUNz
BqGhHjKf9kF5GwX+sLycfNdP+jeUUzUP71edgdSuQfJ82J/IPUeB+d80la8+
k/3mJTb2U6CuQ+Rt4zCpV4//uhwKcEYX+18dRb+5V3NwVBU0vW4PmIyT+V6S
/H9UgH/yc+2xCVKfnszfPapwaf7Gf4y/yP46omNJqjD0dJn33jSaanxH+rQK
MGyrcj77h+S38JGbsyqs5q3+NJgn8ym625tVIe3qvYVdi6SfZm/qyasCtXox
eW2Z5K9G6tqKKsQpWT//9Y+cP0j5XRAFKjfxH/yybgb7WeHXzkwKsOxXtfmw
Hj30Q/TpWwo09zumv92Aro3l9KqkwL01w/PPmdCeIpGf7+L30b30a29Y0FpZ
LaVUKlQeNng1tAVd8uGgfiQVWuOlRWa2Evdt35xEhciP/E2sXOi+G+KXRqhw
MT/0meJ2Mr7lE1OBGnw/Gad3eic62/lUmi0VxGyS9DX50fL3hBkXKBA7JPzF
UHCGPO8mdHWp0PX1rYfxXrTjdqofMxUyOzVvp+xHM5p/m8Dvlc/bhlQbD6Et
pRM7kvH9u+9nVLsIiT/KcciICiES3wOGxImdh27epAI/Y6//1H9o4avufwPw
eZqbyL4ihRYtyP2I8by8od48fwLNfYom5T0FNjCzMmwE9LTYDtYMKvRfqm3b
qYhOM9fdU0wFtY6ufA4VdMT1tyX3KcBwSer4Nip6XO9IO8b7N2drJZsGOp6r
r+EDBSzGnU1ENMl5fR6d+UkFz8VhB1FtMh7faMNIBZ5HgrcVddFUeoYDuF/i
expdYwMy/mH82GMqDBnm/FI3Rldsb+6OocDX8J5xDjMSr+j3t6dVgeKquJPG
Es3vYnHdiALXxyJsN9iQenf9OS5NhZ6u7hxue5J/q/xb+P4ePnboOpcTyR9/
nTrm/wP98U/vXNAvAuz7vqhA683/mPLdSf9sHrUwUoXhYbHX17zIen1fduH3
dMjKOHeVL5nfUasXhe+LCHaFtgA0zc6TCg/xfZq5UbUlmOTncu2+Pgo4jckr
3wwj+bz06PdmCjgIFWT1RxBPLUZlqEHVJh+fTTH/r+el+RQ1iB5yXFmLI9cX
36EUUWBhH0/UlwTSTyeiDjNTwCB2kuV9Mnrhx2XzXAoUcI38KEol+cuo/xau
Cj2ux/eczyD5Kr3VpUCBB3Zrj89fIP3zXKR1PeZfbZ+ffzaJfyc8VKGAftLf
NY0rpB82R+mXq0Isi66jZh46kG1EcSsVPhgHPtUtJOs5734pTgXts+HmUEQs
KDauSwHFJv5wqZv/rzf7Kn4PcVc++Hr8Fhn3f3BoExVGav88P3ibnE9uSCCV
Asq8XrwMFSRfOyaud6lC+5Jw+Ld7aKnZBpZN+HyvWZB+XkP27wkbW1UFplcf
Vu7VknzUcW82p0AiW8nphDpyvZD1xXuqECg/9924gfR7gFNXsir846aL1ntK
ztPs/qIbzx/9aaNlMzmv3odjeH/lSG3fKP4cveXmx8VUVThj5Srw4iUZV0lv
qlAGo2mjfqcOEk+g6xMWFZgbnYhW6iT1L0/VfaUKfA86M7Z1kXwn8AVkq0KF
SNq1xW5yfzTThXPjfi3xcY97yfUVzbt2qcKEEuTGDpD7+3fVbXx+nXZ7OaDw
kfSrhvYs9ltt9N9imiGyXpWn1bwKfPlusiF6mFhMkG6rMsye3WZ7ZJT0b0X3
qLEKxHPrP2UZJ+s1r3xfUoWTOlqttBNkvZ63+/B9cjw/TX/4J3l+WNBG4fNx
tSxsOm2ajNs7dvpif+/hPKz0h6z/um4kXQVsjF3OD82R+7eoknZCGZrZJacd
F0i/PDPbpqQMzhTxA3+XSD5v9Hd6KcOJeMr+ulVSb4ZbC3i+rE9msTk0fzB/
9+4NzajCps6My2fo0LXRN0tfqMCFMVkXJga0Vr1hbIMKGB6yUL3MiOY+wtQf
rgzSR4+F79mE3iJZ22CkDCpzFYtVLGjDLT0ffJRh2NRZV2ULelym/X2iMhT7
75VctxXN/3qI87MK/KoO/XudEy0/U0m7Dc/H9tL6IDe6ccza+IQytNvr8T3c
jhYusR50U4Y/vFb3ZXaS+ZVmjbzKwMxT+F/LLhL/0NoinjeT1p5Hdjda6uQ+
vidKYMIosPGZEJl/pC9MRBkGr6Vej9iHZuz2fTepAsM7aA5LH0CLvojW6FCB
Qu0o9beH0Au32SZrleHGs3UrriIk3rTlpI/KoKfSKP1bDB3BMjsngOczmdZx
kkA7Vke8bFSCl/nVn+ePkf137TZ3VQabU4dvBh1Hv3FtObFNGXTai58yy5Dr
p9rfZStDMOsB1atyZD7PdqEYZWBjcUiyUCD5n/22n10VPCFVmlaZxJOhEMSp
Aj2zPrvOq5J4y/bsM1CGvIiupgUqOZ/57HYzJYi/2nfIQoPU65uo1lElMDic
f2XyFDowXMLfRRl2FszWRmqR6y+W/ShRhnMrv+336pD5X3947FGBtzEeFoN6
xIqTz+6qAO2Q+c/7huj4/mCPblUooVpf8zIh16vsKHmvAkrml7k1zdF95Y2V
X1UBVvkX6KzQQ38lVu6oALfGLZ5WG1Ifd3VmNlXQnnTpDrQn3sjSc0EF3D1z
GA2dSH/wuxYuqkL9/tkhcEV7tr1vksPvI68dBUoepL/kpBd3UuEMgwO/mDe6
oNiUFr//6J0DTwn5obN3Jjni983Awae8vIHoElbV4AYK6D2PuMEfQuL7sKIi
RIWb8TV/TMLRaUzFXgNqcMXUXC0xkqyXr3rbWw02q2z+XhJDrHRudRa/Dxfe
3X95jpwnZ487A85/WRSwKYnULzGOgVUdSmJ17OxTSP2H/Nx61eGu8e7h0nRS
zxL/sR3q8Nrf/dpwFqnfkCVtqxp8+m4vapxNrs9+5lGvAVyvaAsjrpB88HyO
OaoGlaVJLdF5pF9GVIV4qCD5RlzhWSHJt8Txj8tqsGzxKVzgBunHcNOfv9XB
SUQxxLWE5CuE76uBOkgO2yuXlRFf3KM2j/+fh2IG+O+S+H9NVZRrwLi3V8OZ
eyQ/F213paqB7t/l3tM1aEtB3Q78vyR+mIvTthY9fad/vJAKabxBta/riIM3
79DTAJZV1uszT9CzkQa3UrUgmr89kKuZ5Pf8tH6mFlC8TaWLXpB6UVQYjp4B
CVeDjOgOkp/O3idLmpBoHXVv4A15PvSXRZhqQ6uqR1HZe7J+WtVzJR3wV8t/
9bmf3P9MjUVvtKB79Qeb2yfSv2+PsP13BhzfPxSX/0r60/xE9EkduGWktpd+
nNzPbHKvt+pA2++jzyImSX4tb/n80oalLqrMo2myXozOyKgWXJQfZrSfI/m5
byd+9wwo6T8I1lxCV+vrPi/UgQ3DHN0z/0j8Iv526WdgfUP7wBDdLJ7X48P2
Wh1IHveapWdE89/Kts/Sgs35bAv0zGjmgXBWGi0I4Z3dnLsZbTmx9UnFSbjA
cP+fwFb0G63N/iInISHnBO3bbeiCS4d4A0+B6v1yYbXt6PHR+KNPNUCt9PuZ
gZ1o7uxv2gkn4ctT7Z0uAujGZnmduJOwXS2HOWQPeoSX7zFogYqS5/Ur+9Hl
4yYmUZivjPpbO46gZeTEdtKcgabOrFsl4ujaP5ZrWA9JA0Hf1WPo7p3Se3W0
Yd196RPKMmjhEDPeHXqgnzbzPk4Brev02ZlJD6S8/oCRKjo+mq5ETQf++xii
te4kycddAcUCfRimD1fJ1kZXX2PsNtGHX2mauWaGaNFDiiacJtAcMHfczAJt
eOWK/z8TODoVaPnLDl3/keWysjEY6nl9uOGMzsr+MvHxDNSzxmmmeaDTRs90
lOqARaOlF5cfOrnVOYlXH0JLn60mB6N9i5LEevRgcbfmaH0EiWd0f94TQ2A9
WmFnG0fil49fl4fxuA2atSSjIyYqhqKN4HSh11eFTHTMK91tM0Zw8/JdjUc5
pF6jfwu+GIG0m2ZR1DX03huylWlWwElp4tIvR9+v+jZWbANee2uOfaom+WwY
ld1iBWuXPBPr69FSrT81gyygYqW5Oe0ZujlD+7uWCexWsTa4/BL9QsBPfa8h
sDErJcm8JuffEd0ZfwZ6De41DHaReos8fhVxBrwy9fm6etGOv9LC3+vA76XR
efiEpsmTtX5gBC9lJITej5B4Nxyv0TUGRv8z3E9/oFdGAt/cNYCO4rv746fR
W575qvAawI0F2r8W82hbyqn/LAxgMY9TQWwFrZWjLqxiAMdFZHIWaedwfYXL
lgImwH9zinYrEzr386tiO1P4kiJdWb8FvT7/4MNiYxjwVt8ey4UeSYUinH+9
+pLzFB9aaMN/CqVmEPGWYbBtD9rXp77FzQQ2bgjjcD9Exnv6viQbw5G2JWmr
o+gs5r85HSYgLX/16+PjaNG+hGveRvDbV7qLDdCDXb6PTusBz8iRJg4VdEH9
2yebDCH18lhs4in0pKvHuQlLUODae19EH227GG6pbgX5d9mNUs3R9aL9Kk8s
Yc8unrALtmjuBp40bkPQ7cm9ediZjA+y3rLUh2lhpn/LHmhP9Rqj4wYQw+Zm
LBWA1rqW5PXbFIbK6rSHw8i4k/THm8ZAqW2dvh5L8iN2KJTBAiw9Hx7fdp7s
P9Qm+NIMxpKszSczyH7uRRmGBnDBrzftUTbZr/jdSykD6K5h+dCWh16h6RdW
MITrknGUmiK0zIbhylIDYHP68o67HF3b4iqWYgZcxkfWKNVo5uEcfXNL2J0R
GqH2GL3NM5eWzhpuOrIPfWtGcxgbhAeZw9WCrK8H2tF9nxlZmY2g5BWNzcwb
9KHqitWdBpDr6e2k1Id+k9TKo2wGi+B0PfsTqZfsh2+6RpBk/S/o2Ciamqhr
HGAMIo7f9Hh+otO2FXkkWQDIih/mnZ8jz78Ld+itITvwd0bjKjn/z5WL6eYQ
39+6ysMwj++bp7fe37MEt6BzGweY0VlnaUVoTMAvSU1dlhO9RSgmstUSxlQq
uyx3oYd9O7dQbCE7PtjlpjDaNjZD7Lw12HUNZp45ir6c2aylbwd8Fic0rsmg
vXkeu+dbw07RG9VnVNH/Ct91WdpAqM0VGwsddIP9pBmPM9CvckfRWqLZjy7L
qDpB0y9qxUt3dPBXC9MUNzj1IN0gOQC9LT1dM9YKtk+WhuafJfs5iarvtYRt
bU670pLQC3VnVb44QO1LMaEfl9DKa6kbqx0hR5xlW1oeOua62/NLxmCd+uvJ
yWK0kE/szRlzEGmw6TGrJOuZ/Ti02x623NuUuPkhmd+Z/7rVHHgezG6eeULm
cxRxJZrApZZ16ivP0Su82305LOGK3K6kpDdoxhnpKD4rcPA+HsDXj852kOjb
YwUF4i7b5z6jR2ieJxubwJXpnS1vx9CTf9tueZvAxSpRr85fxJs0KuYtILrX
9IbgX/QAxdCxxBLeLZq99KD5i/eXMi012xpYJ9RkbZnQ/sO938ZtQMSkzPMj
O1pxqMl+xhLsT6Z/0eJDuw+3fxmzB+pVhwSBg+jmwvLThU5At4PCUSpBrl9u
4NxsA1U/U9zPyqAb1Xc5GVnA2kEQE1NGiy42Mj03B+OmPzUfTqLvH3LaqGcF
7iuUO9UGaGHfkulKO/hb8VvxPxs0u5PO/nUOsPTa+oSfC5pBZnj6rCV02lNk
dfzRt0Re0tXbwZd3TdEuEWihgflkUVuQ6vW2qDmHNmVpdN9nBrR0H642nSfr
3y1YlDCEdo5Nh9cyyHxKo8yMLojtC2iYzkFnq1WotJqAz08no3PX0THJo/8d
toEdEUJCcRVorT1+F1ad4DanIivXE3L9wRPdAm7wn41tH+UNOv7U7jZRL6D9
0vczYxB9eXn8wEVH2HNo34GxCbTqxdzAYndw/mWt+mMBnRgTIMXoDCVvJB6u
0C8ATWjz9VEhZ+jfuHGJgQNt7V0SyeEKG3y+d47tQpt2NZY9cYCu/qxfhgfR
F1/py47YQ9i3K2bJR9H6O1g/2VtCa0pmRf8JdIbm1I3LlpDX2ia4RQlt+Xmw
o98Uxqx39G7RQKdJFdqvs4TgP3yfSs4skO9/Vl5LcwgtZ51mNkIzjjRQ0oxg
44vikF826O2SolzP7MB8ckI0JRCtJ6RSk+8L7x73fth/Ce33duLWlXDouy+4
dO7xAkRErezZLBINh247un/9juMHQnY/OhwHdr4sAtq7FyEi1+ZM/7FkcIl2
euuovwg00RuO9G1KBNHWS3WmYThuLcA1FxQNZZmnnYqL0Y/HPvQUxcD6ohc7
h96gD8XLDPDGAt+n1BrH9UtAw3L1q0ZzAixKXjN+IbMEET8PJXSJJMNqZHsm
w1kcjzyjnpKaBoXreTMHC9FnFErWnCPhwu519Y4j6DDKcabraXAoeHld6JZl
iGg/uHptYxx0UMf3dcotY34c5jP2n4Oqsmdfpdxx3Kfy58fqcxCwyz5i90Uc
Hz6u/Xo2Gmpr1t1d9wTH+dtPXfKIAcq97CnuH2hKuEZBUiwk2fFNGnGtAM21
fsXwgjiIeBgfJXwMPafjfPF1OGR9PX+qyBTNdCFqVDYaPv9YfNWTvwKNXet2
FHSkwShbqYHE1ApEPH3pYt2bCfxugxc8jq5C4+ue5E7WdLivm/Noc9wqRIwe
F9lYkgX3blhOf6xfBZrwkq/bHZJgo4oG7dIyjpednmNMSYW9Ppu+PFX+B/Ln
NlX8FcuA8kX5Tz8u/4OIQqtTkHgBFl5t84lZ+gc0W/3+sxu7BHe4bSPtdqwB
jcmNvec8I8AcZuTmrdDlCTYiRelAy1f0faQOXRpQfivkIoi6rOnP/kVfKr59
f0MKrIweFNfkoJGnsRUtZ9CNB0PGqdeRYmjT3c9yj56Hpq/JfuIaaOcPV4sr
EkC8r1fsqzXac1a9vuIcSKR7KaV4otd7HxXUD4EABXqGS+HoOMt9sWyhINY2
26YUhx7f3bC1yh0EdQsd63LQMwnlVwOi4Xmg3pjEA3SRUHVY0HlwGR0U/thD
7HpOsSQVSvMHTY59Q8s9WhM3ioCphm1HlabRyXK+d3i8wVW22FqAdp08TVh4
qsinSFAtaq4q3ooesOfTjo2EH9Wc7Rn8aKrAtSN9QfCe7ZOg7BF0z8O0St0Q
6Nz2WlZWFj27cegoTTjYPRjST9JGXyxg59GMAb0s95mDLujpwfNXChLAVTW9
jCMAfcRWxfttAHzu2/Ct8Sx6TOinv6EXPKzqXb8tAV1dk3/iljc8Nq50msxB
r7/Zb9sTAROa7D4Zd8n1s5Ybi2PB42eA9M/n6Jg8u+fG8fBb8wP78hA6ysqm
jyUBHlcs/LWcRmc/k25rDweWhZ/0nAy08jRalDmW6lgo+35jN3UHOu/3A96j
sVDvLSnRewjNlpDOlhoJceOzw8Nq6Da/x3c2nYfNp5UXrVxp5SOUq/YlQToE
njrXeToIx7tWYss/BEGCwbEOmgxyPdPdlYp4iP596qxjKXoph6vK4Ryox/3a
PfIU/Tyr4HpIPAhLPI6SGUR/uv3awjARKJLxf7On0Lvo2n1No+ES0+7jx5jo
MN53OQpXE8G6kr804xCdfISdzprkkXSQcchaZJLB8WqXbwXT4SA2umdpQBs9
F5ZO8yYWnJe3/4l0QB/fNreA+Ur89OXAQBya/2urpGEqbOh75s5UiA5b/KIk
mgiHu6uiG+6j965McWB+6rZluDx9hU5R/PSN9hzoefNX3/+BvmySQp1LBgb2
+6+aGdfL01TmX+BhTYGU4xOHnx9AN2duF12XDptPdTyhV0BHbv2SLhcHXH89
h1i00Yy3ivgZI8Dz6PvWH7ZoIxnbscFoOFH2rL/VG31xanBPbQi0vXaJEYlA
81G09N4GQ7Vu262Ec+gSruAcRzdYDMq2c0lFc1yQmojzgBjr9w6FOehtb4PW
u/oCnVFfHu919L9Jevd5b+jRezWuXYN+tzKr9l8UcBi9zLn/HC1Ht1JhGwWM
qnF5GW/Q4/1BG2u9wGBWtj/6AzrP1MNv2A+yZFQvnPiJlqUy1j+IhAX/spHJ
FfQL37Y867NwuzJy9domerzf/crFXMPgQGvU+Tu86DCOdWmbIsHaQFBn6jBa
Kr2gRT4SGMYmSpnk0EUpL/R3RIDlurtKf6jo6mNxR9/6QcHBJHcRXXSEbq1e
oD9MKouW0dmjT/LckOmOhDsz/Qozgeim26UXf0VBHFUmVT4R3adnfUozEj7t
ttysmY62dEqlOeYKkiOdZway0bb0T1jE3OEX5UTUYAHa/XmP+XpPaJZYkYko
R5f3R/pRAsD7wMnfmo3oO3Onq19Hg4ULF69gF/qnfPsB3D/oT+bErkG0xJbF
vEUfUN8wscY7jFY+bao96wAsVzvuak6j4w4+s7AJhWvK/nlldAzyNBdulv7C
/r5KDbVhZ0XPb2BOfOUL/LPcBlNb0cx3vF/7OMCgd1zrcW709FLN4/1WkFm/
92vOTvTg3kjvCDvo+ylJ91sIzdGiHGHqBjINIaf/iaFfFJzL3h4M7Zmx5o5y
aL6yrXzdgbB/qqOD+zTa3ITiXhEBH9v3eZsYoB0f1qjHeoKrml3qjBlaZn7O
19QZ2BdeKfxxRJ80e2u7zh/eGzVuzfFHxz0bua4RAkx5N/pSI9DO8W0JP31A
bS67eOAcesX0leRB/J5q/+xUlIXuKzsflxkEw9a3pJIL0MYiF652BsBlhuu2
tMXooZThu3128OlpFMvoHXS8/xPtFi/I+9DF1FOFpnGQn3tmAxKGzTOfH6EN
Z1ry97mC4PJ6f53n6E8qkQzfAqH/26ldNu/Rrv3pZ3aFgkGt57Z7n0k8BSq/
rvrC0vJPiUvT6OtKYXyjEXB+mkvkJ8MGeZrM2f1LenGgK/I1Z5AL/Vyu3Xkq
AtTv0nuVHkLPn93d2xED4zxXBZIp6DznSxXDifBwNpr6xxD9dmBsr0Mk/LoT
LiJig3b2nXsV4AuHGyd+q3ugw3cPxEgGAlNkVKlLCPpR5GEPhUAoc3m3vzgR
rfi+kMYvHO4LTnOq56M31fJOXo8Bm5fDu8Sr0bdvzGwcjwGr9jTapqfoFTrT
ll0h4Ba6GnK/Hc1t3T8z7gMD1AWRfUNot46lKs8YYHIRXf78Fy26W6q99hzs
tqjj0N3IiPNnE3l8I+HGdPJcCgeaQfD6Uz9/OLZ25JGpIHr3TuWEK2Hw+Xvr
tTg5dOmPS+P7k6AwK4Ry5zS66VZ10b5IaGExE+ayQgsFfRlyjITTaab7nnmg
OejXVg3CQJUvaN2NYPSvHcern/nBRNfw0dI4tLrTO1vGQNjVy3dzJRstsV7G
RycKYuIP1ChfQ7dZc/GmecONYtWKx2VoRRmp+d/e0MXTFFhwH208Np/W4gc5
hiE03Q3olDDvzQ6e8DGQt+z4K3S8vKJeeyh42Xbeu/sZnTVxb4N/FKjvFXUc
+Y3uf2pZIxEFlhdTN3T+Qx8aapB7HwQH4gVktDdtxPlfBZ3WY7+e2PJxkAft
6fBRgSsMFMrSxb8Loxs+0ZZxh0Mrq6bkBVE0R8pv9gp34Eh9eG1FEi217s7t
q27QLGxk90kRbXkUYvH8+rsYn2WcRAv9NKtz9IELF54GPTJFg//D+/sigFOC
VqzHCx2RJ/9gRyycvv77/Nh5tLTHlOmWZDjHft/5ciFZ36N5sCoaJo9Uhe64
hW6TWhKk9YLPkqEDS7XoMbaMuoYwSB2OMfz+lOyvx7Yy6AWujPQDxi/Rvpdo
GFrdINi0erW6G81bYk6p9of5hw3/vf6GDjVjkuKJBsnPRUoJq2iFPWMsdbEg
UkDH5M/ChM+jyMfJ/WdhPfv8uAs/+r3XzKe5KFikyWTiOYae+5UrcDsWBMrp
/H9R0MJlni7vI+FB4fqDDXroQxPrnPNDYCvfxIikFbp2ocPnjz9Ihd4NnvZC
7zFvvlAbAUM2uf/cItBanf0blkNB1+nhdYfz6HEmafU/QSC+7XHdyBV0vdEG
0aVQaI4qr5O+hRbq/7RWFgolxumT+dXoF3dfWrX5AvdnK6GWp+ghxkIP9WAY
cMm3TH2JZjw6Py3sAaUWUs9OdqPzvom1BPtB1+mLhx6MoPdPmzk5R0BziN66
d7/QIwbhpZK+cLH4zGrWArpIb+lvtA/sE/Tp/sm0SZ4mPZS/1zAKrExKv2zY
iZaWOsayPQp4FqQ8jcXRtbmpKWdiYeWjwZMQaXRru2yeoic0Ng8NGami41+x
KdXj9+HIkb8M2mg5+dxDxn4wtDd1TM0ETRvT+CnWF/YFLiYv2aNTrnWftAoA
Ht6lI95+6BHKOuWpUBAqfiyQGIXexnFuVCQYWDktmkvT0N0fFVUgFGg2VHjf
vYae+a11hz4KtHiqKq4+QGux08n9ioEd/CyVci/R7QzGNIWRIDMQM+39Fq3o
OxXu6AkXdCZDaT6i78285t4RALl/JXkFvqNZqZfk8PlWxyjMMTVD4t89NHXF
B8yj7qvRLaNV//C6CHuC24OQBkYaZnzfdHO847QFOSeNS7eY0Nds8iuV/IBP
lPfZLCe68XyhQZY/LEtx/DARQD9imz712h9u+XHaWomj78qsC6aPhOu3oh13
yaFnnAYZQwOgVVu7eJSKVtW8EpLsB+J+m8ZDTqErzo8zGFnDqjRNcLs2+hDX
O4qcFTzb0x+Roo/mLrPZwWwDXJbHjouaorW++36Jw//n4iViZ23Q2WrPv5xw
g05PxWtRLuiiUIkvDJ4wZ8ZR/c8HfXLguuCCJxxY0Y7fFIzuDpzXOuoIAeHV
5Q/PoiU2JqbX2kNvpqzdYAw6Qk9oONEWvrvcdfyWiKZaPmc55AiS7J4CMxno
3JORXpyeEPj41DD/FXSUfl2kmScc875tMliIXugKH/3pDOGv+AaMb6HT7g+v
rHgCqOTQNT4k86dmz7SFQ1XNVemzzejxIUb3cD84d/N220QHuuTrLv5+T6g2
VbHj6EEbO4v8p43P31RFg78f0M3ts8+THKCl7uTw2Gc0jZW2YagF5Hy6UTQ5
QvKTZLuRyxZevf84aP0d/Wbw81CfFfAv7ejbOUXykb4wOWEP2qNJwlXzZL3y
Jwp67tDZpB7gvEri91uW/ugM12yiTTnoWHB+9HDWTXu4nBW4UrcBPfSs+2ye
NRxYH+fGxIqWb/iv+bgTpIZazqxxorO+OG3t8YC9v7bxx/Ohj3x1NdniBdNy
L6n396CFlV5eq3WFpxkM7B6HWMj32ZzQV2e4vGC0g0ccbXvp1J4SewhZe58j
JomO2TG9aGUL//5IWKbJoJm7QnhC7EA7KPZ0jCKJj1PxcacD3Ji1aS+moLV+
Bk0l2MIetuUqxlNoGm/Ta+fsoJxOhIdbF83b1pkl6wpJVopm8Sbo0IBTW566
Qd8482y+Hfoy64XDIr4gIlW14OeGNpXNYTf0gFCm2isu3mgJta3JPTbQIiJW
YBKAFrowwtZoAw3vtVnuhqBHLkVVn7ICKbf5a3ln0W/qhG5jfZL/fpJlj0YX
nFHuzTWBoUVdiX1xxOwVVTcNoSZ/tLQ0AV1yJLZ8qykcsry5GnIeXUvHmpdh
DuW+ofrP08l5zujaHLaCTg7n8edZaO51bqnrDcFe8/m/gUtkfsf3e9mGoPa0
m1p2hYxfctGKMgfTt14H5QtIvuR9E3Ws4dSNPbdUbqCbT3cu4f3+ym3JIb2M
rL9b5+8RJ4hQzuVprER3GJ9rfeQIX74sfs9+QOrh569g4wBXMy9vf9qAnm6N
aipwhUEu0fDrzeiVLfopCQ7w9lCNVssLdLcOh/o5S9hE0yLq/xo9fhIintnD
p7obOkbvSDxTUUnJNtC5XVZ0qAcd//fRyDFT6L5xNT/mA5rjUNTjdGsQMb+x
w/wL2vUL37SdA1D1NYS/fUeLT2vwsHsBZYrm6d1Z9D8xF7F0P/A/KGwXtYKu
n85NU/eAkGM5JldoWcl6zf02jnDukXmc3Ea06JZtZcnOMHeCfX0nK7qW/vW8
gj18sfTdQcuF7lNrPmLvCac6Q0+Z7URXPBR44eoEimr3/67tRnd/Gy1JtAeX
6ZTfNIfRZzQr/6zzhV07JkxXj6Ed9Wp7FnzAR3z8YZMsWsts1ofTBUrNOqt3
UtCu+q/narzBxteH7ooe2vcw9Sq+P1NF7xs8tEUbBsaWyIRDem+GL58ner3m
w+Nt/qAOg0d3+qNH8vasLjmAm8h6q+kotOrQaePiIDAOWndLKQ09kLmUXhwM
V0Y+c2/LJtffDqpT84Du/n9dC3nk+u6Q8UQX0JWSl6q9iaZ5HNUW7gVXZ/x/
e9xGC30fGPlkD8Zdt1pv30PPhnfq/rWF/RFakSy1aJkHF3+E20F2zRvvxTp0
YNm6ZAsLaImsOuH7hJzfahulxwR2RTdbmDxDv2GK5z9uAU4P8+5sfk7yce+t
/zUz2M5/TNSzHd182YwhygqW8/99sn+DjlkTqBuwgUfzjnzhPegV49JVU0eo
aWdf4PuIntS5aR/tDAttZ2caRtDMq1Xfz7qD2pUHN+wn0MoKnzvynMHYZVuX
yTSxfEhltw2o+Nls3vcXXb5PYu6QC2zWmbhgQ7sZn191m1mC/KF8o8eqOSPa
d4A176cDcIXL01tsRpe/VdlF4woWj5hLv/Og0wKzKZx+sLFVcW+QIFqXy3WJ
zwfkFc70/9iPHpyU7Wh1gln7De7SEmhHDef9+b6wf/++zVRl9H9NuwpZIqBz
6QxlSBN98rqBp6gfNO3XGgkyQY+ZLR0/GgRNRvMX6a3RNI3ZbUecoYpy2orJ
G/37p2Hb+gi40/Du+XQcetk/xn4sBuzoaGl8L6MfKB+Rio6Gd8m/32ncRbsn
TL3rjYHopt+Z11rQFf/RNOrHgeVMkdC11+hHFvYCa/i83pTMadeP5j/6+kus
H7CVpW0UHUErym0cv+AHwoxXzV9Ooo884r4l7gX+v3I6qPPo3I7FD/+8oalK
WaJkBS3KWZYX5gQXtRju26/bgs+3ml2fs7B+PUJHPejQC6Kz40qWMFK5cnaa
Hh3Y32DPZAsMUmLDTBvRW8SK2N45wjeWCb7Hm9CMd1+PpttBkcMx12pW9Pgr
Y+dHDtBXY+Ziz44u8JJeTHWDfB8XM8ttaKlfbmmdHuDgd/Gk8Xa0PKthENrb
OV/x+C70oW7BvhAfYOtrVPssiA69H8ubje/blK4XKQfRWgOqK4/Dwf/xUs68
KFq5rkA53w8eXa4b2XWMxOdHd/AG/r/c0D7legLdUSl7SMIPVAuXFGTk0C/e
hKYH28PbwJVGLQW0YT3rwnVHuHLl62UmVbRwUq7DN2+Y3zgscfAk2vXhokNU
IEjUhKdNaJH8lHu7r/OB4nKFxus66LQ6rvCndvD7BP+ohAFZL3h2b4Ir9GbY
/flnjBZ9cMBbyx2swvvpXpuT+E3zowPdgY02UfGzLbqRtWlJORAUHapyDrmi
m7NumP4XBjtGdZ9Ze6Nt/8YW9wXCu218r/v80UOtQgf7vIDrSUqvdAg5b2HT
nngvuJny6cThs+iI0PDdmZjfs8GcHFFomrjPHcccwN4nbt47hsSfb8H41xpC
GHg8750j9c/O6lh2ggQ/ISWaJLRnoEm2uzOMCHhrNJ1H91m7KW6xh/RTZy7e
SkW/eUR7J8YctO69qMvIIOvtqTqo4AD8E0G5ChfJ/q0J9AFuoFUYwepxhZyv
b/uLGl9oenGQJbaA5P9q+ZKBLwjTH+PaXkTy81Vbq8QV/tZaJ50sJv2WZ1eY
aQVje1t2fykh9thaV2QL6Wf23VAsJ/k1Y9vK7AL8z3xdvt4l4zEu4gxuUKfn
7V9dReLNmjSId4eEWc7oTbWk30JSxE29oKss6zbHY7TQx6VSIV+IEMmZqHqK
rmVlXwj1hvzCl5uLm8l50qIF0h3gNA/tX6/n5DyPnx23sIep8l2ZPi9JPq9O
DjFbwgNvukXndjJuKmPubwGzZR9eH3lF8pMZbSZrCqyLB673vSb9/3ZW+aox
vEsxHg5+8//6L84IGoN2BEjc7EJPJ+1LtbaC70Wjt/50k3wJidXYWMP3jW11
ib1kP2HBc7W2wDIqeFtgAM3f/zrxgS20sS/3cH0k95vbQ81KB3hznn9VZYjk
s++gmJcTiG6sl7o4TK7/8GEw0hr2hsquyY+gLUW4HMuNwetYbkTrKLqiaILT
0BAi+oSLrL+RePjbpJqMQKziN4vSd9JfIedzGcyB01RnOmiC7G/BsvWBFWxZ
O+Aa+JNcLxL8+JsFHK1Z3dwzheauvMD30xqYeY8oc82Qeh+LLtxoDcUJGw45
z5L8uLbLXbKGDZZ+AeXz5PlR5W7Cbg1GI9Pl2ovkfto9WLbfDlQW6S7tWyb5
0BQrNDeDjx9N/JRW/5+fJzOfLEGNwsr9e42cRyOT080O7kc2K9DTseHz/F3l
qUJHCGHdyXuFAS1s39x1xxX0PN8t3d9Exs/1B3v4QlnPmb75LWjDnFW/NV/w
KfkS18eF5qeceBQXAu49ekkdu9CTD96wvTkLccK3Lar2oS2pZtpXzuL7zEjC
7jCaub3yzHN/UP4udc1dnMyXDHuwxxdWjHfqekqykfs1/TmDLxi827i/QY6N
fC9V6kiGQQhTdOkVKprqPkNTFw1Ng+UvXU+jedVuRiiHgFuf9mqHLrr8V+br
CD/4zklf8cAIPT3X0XbLB3JcxPyGLNCN+pUc1wNBS1fsz5QdevDa2l/ZQNhn
uTtkiyf6DtfwZoUYSIo7lzIVhn5xsm1vQxLwLV+hcsWj934X9j0dAyz50gGS
yej61OBHEZ7gcdesYUcqeks09/HdDtDTnyk5l4GW0ql82e4O3hti7q1eIOdz
jexVcoQTde1i2dnkPHmyS+9swcTux9vly2ga7TmanTZw2YFaz5yHXmCbPnPO
EXzuq+75XUji8Z+hCHqA0PnzO28XoeNrjjV9tgP1ZJvFpZto0cW7n/B5pJrN
JJ9aTs4vkrsd/39t+JZ2QOkeev0Jnlud/lBf2JC/WIvu/nG/uz8Ydrv5V+1p
QGcf/qxZgfV+IRNxr5HENyhub28LFYm9T6ybSX9s6VmJdIPz24uau1+gfUF8
6wsvGLnZc9m2A13rnFUZ7goxMxa5nW/REQf2MJT7weuVJN7FbrTWGct1J53g
gYvJX7oBdFGdrMtBX0i/omNq+5n025OhzEg/+C9xUuvEMOkvv+dFD+zhlX4w
xWOU1M/WvTrfCVoMrruNT5B80hVljwTBiKWc9+tZtBz7sY0dkWClJ7Hp9xJ6
9m2vTWIgSPN8bHRZQ9tuvt7zwwtUTu8xX6Rjx/dnH7/fMW949fdzcgYreou2
n5l4LJw+Rf9whBu9vkzdsCgGpK79PMgniO4qfTPqHQOjojd/eBxAV0uPLamG
welF3ucHJdDdaRO1AdHw8L2Ee+0JdImXRa54ODza4RBspIymTbblVoyEfbLj
Yz0n0QOKtP1LEbC2/W80izbaMuCE74AnaPgo8mvoo0WtDnvN+0K1QJMTowm6
6OG/PXPeEPBeve62BZq5c7fqBW9gGxZ/XGGLdhQv2MDsC/rKFr01TmiOhEpH
Dl9oa5xZJ+qBfvP71K1xP4gOLg9K8ka/ePXq8QdnmJbhsVv2I9dvtTc56wJq
HcpzK0FoW9k78gyesG2r7qPPoWT8WLDwNgeQvLH9hVIkOoa6XTLNC2oXB1NF
YtGMRexy5h5wU2/o+tkEdL0Hi5a8FzzO+beFNQVtuCWo+rg3tHRvVr+Qieaf
VB7h9YeTLy1FUnLRrN8L235H4vs7TfDpDeIr5uN2UeCoHZlSXYE+4Df8fiwW
BgqPO/HWoUcKPGs6Y8AvbwdHUCv62OIzvYdxwNau/pDnLVrKyFxdIRYeikz8
6uxHa72Ud3GNhH+vvsdYfib5CVoyUPSHLdd/vKZ+RaeVMGgpesDPbh+m4m9o
3+dCv3y94Ncnv/2PJkg/CDOGankC7X3xtuVpsp7pnygGP9iXbyKn8RedVXT9
jWwQfP07tMK/ip625lzSD4ASdd6F/PVbcT+Nn5PLYSCs8fQDLTOahjYrJSkM
uPefeOXAjm4M+NaSidczsrN2cqMPnTWhuxoEjP5Pqqe2o4WdXP6jtwLFA649
4XzoN4V2LEGuYMKbeTlMEG374sqWZR94d960dGkvWS9Jw3/cBU59FD/qt5/M
D7mnif8fDGz+nrt5EK0lKlScYQUqhR6nqw6jPaeenjC3hP+keNwFRdERD07O
RdhAh8X7kV1H0bUyX2q+OsBhlkDPYUl0TE3iESYf4E4I3HDmBNrwM11tqAvQ
hZ3q/CVHnH9TbswVVsccO9kUyP6nP9BwW0HhyAleLSU0/89L9jNW8Cf8AKuz
Kjqtyze10xECizkuJaqR88poU9Y7wbLhPeVtJ9HcWT9dzWwhuOg0d6wmesHk
R66/DeTNWkZUa5P1IhPlQ5xg8MVmrwh9Mq5V1yTiA2G9bnLcxmhGv2nnBlcI
zlbbJmyOnqXzsABPKD9g2pdtjX5BVWd85gVPDAKuN9uhsx37Dc2doLhV0KPO
BZ1bV3nkQwCcFK7m+OxNxuMULqbg/91AdlbVADSzQtDoFS/wVNQ+IRRM9js9
7/TbHox0HOF6GJp6rpZ/wQVepm8/zRpN6rP4Qg6fjx7dbqv3zpH1mE49zPCG
tFybwIIkcr3CnV4XD3jwNlOhOwUtVRqplucEAf6pM9/SSf/s/XjuqiO8t2Va
pFxCBz6c4MH333xSnPrBq6Q+udMq5wNg/c8s6/c30LxNvKK6kfA1e6nqXzk6
9O5FlRuhoLNJa2tFFYnnpV5YSzCEh0LD6Ufo8ubHZeHBoDpnoODaSPL71YrZ
OxBi7VsGjFrRK801dvcDwOk82y+3V6R+V0RPaYWCbmnt3LN35HqPXD7DIJAs
tk3d2IdO/nPXfpsXSHndH5T/jF5/iPLfx1CwexkQc2QMXW1Jn38/BE4qLFeL
/SD5/szSxOwJScXT8/2TpJ77yzYr2sHDLfGid6ZIv2rXdRTag9qwkGbBDOnX
5LHJNAeQLTm6dWwOXSDiL4z/N52uakptXkRblvYKqzlBjW2Q+tYVYmn9dH5H
+LW5b+HPGqm/0Zw3vQdUi39nVKLjwOfvtoSIQGfIMN3frM+IDrxJ81PTF/ya
j6ios6CT8znXv/aBvrhDNKtb0Nxbf/VecAP9+Sq2Gg70dMiJ5EY3sBHOEZHj
QUu8yAoQ8oZ4xsGtujvRWRGb0g084abuN8GH/OgFS+MIYReYMFL3ixVE8x/g
TrK2B6GpG3V39qBflA6Kq1tB8tj+2Sf70PJ1u5oTLIHfVjEr5AC6YPIZzUc7
GGOttnM7TOLXP5+U4gA33W+HFYqiGf+1PSlwAg33BsN7R8n6q+f64hyBjeHf
zxOSZH7DSulJV3hAm+D7WZp41ECC1w2YD8TVHpZDl0h/3+XtDANqNwRKFNCe
/xao71zgkA11uloZndbG7WfvCO0mPw4IUMh5mje/t7KBe35P5jepkfl52o/L
zaHK/+1WHw0SD2PauJQN+JkP3FDXRG+Ro6TV24P4aWfmTG30eOxZCSVncL4s
JWWhi2408ja3soeC0EqLVn10BdvzE8dtYOnYARMuI/SbrpYP56wh/j/XVhET
st/sZuNnlqD5wOj2YTO0JW+f+ycL2HBNnvaPOYm3zF1TzxSijfLSHK3QQ3U/
vctt4GgnE6jboiNu2/iwOEDmJWbxVAc0jRJr9j5nOMagf+KOC6n/oz17Qj3h
cKazc64XevDomfraANit53zXJQDdvWFtq2wA+BtsvbQnHK21sSjvWzBIWx+I
848m5z1oWq/kB2HKdntbzqGZEyYipL0gIHLuUGsiOc+3SAlGR0gWG42oOk/y
HxGW7+wAIzn5EpLpJB+K767udIWKpYYh3gvkfAzLloc9wNDs7OK6HNIfnHSt
wh5Ar7wq9SkX7fjf1PIXd+gLZJX0LESffKe8QPEGZVPTxJAbJJ/nJU8d9gTx
e5t6rpaQ/N0NNmN3gmQPjaS2MhLPj9VSOyd8XmWHba4g58/87+VWL9geJmP6
9D66/FpK8PNgqH+1Y1/sY3S8YtjBzSHAuQ2kjz4l/au4PcfTDSK2LhyufoY2
nHh+dYMtCK31ZQ4+J/W4E32p0BOe6pkKMXSgfY1ZFIs9YWcY56dHb0g8V0fG
urxBcCnr249ucr/Nru5p9IQnwaEqR3pJ/dbLTG23hhiHEYFnfSTfHeGtp4zA
6cXLD2oDxKz6eS6GwMqu/2v5A/HlZmEBE5Azqsl6+pHU12fWztgU7GVVig8P
kfwJnE22tAHdn78pf76S/c/asRx2hx/B+mZhP0j8xzL0hIOBeWdUmNY0OW/8
nYiTAXBpj6///Vn0od0vvl7ygssC/Sd1Fki8Q/uq8H14O3fCpWUZnd2XuZDm
ArzspjFDa+j690+tXD3h5CuzDio9J9Z3koG/0A8YD93vOsaCng624qk9C29/
arEcYUNTWXu6H3rA3PEJNu+taH6rLiF+a+B2vTS7xonmTrfi9LCFQOuhVY7t
6Ih+wT26njB8+kTOJj60lkvvQLUHnDemmjUIoA31HPkvusGxso51PkJk/djd
QjfsQFZQ+P4xYbRU44drO93h2uk0dWURdFZlgfaxUGDpzNGVPIYuX90j3BEC
p+wfzErLoGnM/CNYA2Ey++utSXl0aFtFX6s37BIMXFJSRXcIn5Ez8wN2uqa9
39WJz+6rzPKG0Tnl1ZNa6JPtm4xT/WCSYY5fTZfsHx+x84sH3Nu5d/6jPlr0
fnxpsS0sxH2q325ErP7svzEr+MgqtemOCVoYOrwv4/8rASYpDnOSv8w0ezEb
KGuz8d5sSeK7cPlGlQW0m2/W/2dFrPhQ+pc5cOlIPmC2Q1teg40++H9NUYhK
cUKn1Vcp/fCEKv7x+TVXUp8/fP4tbqB4f3voB2+0jH4bhzve/6mzByoDSL5t
HOr0feDUocNBcyEkP77DUmxe4J6R8L79LJpR7OvwPXd4x05ZaIwm8dJNcpZ6
AOPD+MD78ejubIZ1PT5wy3/r1S+p6Pj5AxnlobDz6J1EmkskX7+d74eEQvxN
lzs8+eie8WCKeAQESCWzJxej65Wi0l6Ggf+DxNCc2+iV5cWb/4XCwZXKJcl7
ZH32qwtB3pD+k3LKrprkL+lulrMVLN0JPOP3gNR/U9z+CEeIz90bJVSH9nT1
CAtyg4k3HlUMjejkt0It8T5wPku6PrCFxMd6UPCFH0g6VD8+1I4uUf9G/8Yf
1tIdtbrfkP4se6Oe5w9+B68drOpGV7R39M+7w72+vZzne9HjTntOdtpD0wNX
7Sf9JH8LR4bTrSBs/FyV1iC6L7Z/S5It0C2bHiz9ROLNKml4Zg21Dy7Inh8i
/dyeJKhgDnvTFGc7hkm8z+xrVq3A1t6iPHKU1L9yrBH7+azhAZpb42S9NIM8
RSe4WzpveW6S7JdgzTDhDnytnTA7TfLnZRtS5QXqLU9ob/0h/bB4luuOHaT4
X+7+PkfOk/g+5Z8VBNiGro4vkHx5bKYsOkCLUF/q2RWyP+2njGpX2PbsIO3L
NZKfmdwMDWfwOR6ZtkK7Dc97r8w71wl6qws1axnQ/B/ofn90A3Hm8Z2GTOi+
R+LB/1yhf3ds8n4WtFTNuG+SPfxkruyY2IIu0LJYx+4OWckVTkLb0Ln/Vn2G
fUFOqnInOy+65A7tG/w+o3u/4RP9bjSHj/G6zgAo6GDeGLUf7ftpa/l0GDwe
5aRGixDbCq2sDwRPkamWG0fRHXvt/iZ4QuKdqe+Mkug3C3T8PC6Qt6X3scFx
sv+WE/n+1jA2zqUkJ4OWb2I4IOEAXbvmxEfl0JYPvodL2oGx/JUjAgpkfL3Y
x89W0NvyX6LA/1i673is3v9x4LJ3khlZCZVVGvSWlxAK0TBCyN7uaY/b3oUk
KxllJQ0UkSREhKJIhCgUIYoiftf1+f7+fD7OOdd1vcY59zkcN20c/77+YXo7
kPW+O9Z5Apmm9bTqrBOc+JDS0KGPvGAhMvrDBS4dHeF7bCCA37dwaEaff3/Z
g5OSTiO3R/1uuOMMRgzJam9NkDObY10V7CHCe2JI9xyO/0IV+20HmLr3nXTb
FFmOQ6tp2R6yOueVxsyRU0Ykpt9dgqN6/BXclsisI/vGyZfgpOvsy39WeH4e
0tNFGzju7REibYPcpLR659AlyJ9ZSdazQ14dcohCzzOuqjLsQfY4Pl/SeA7q
h42PPUWOyP7KlQq6l8Ck6KjjDWc8n9G3E1m2UGV1+8Y1V2TlmDsZkbYQ7yj8
Z9kd+b5u/se/9vA8UupJkxee748+q40zvAs5k5VNwPnu9fvT7QyGE4sZxRTk
4Wvhv5UIMMG0V5c9ANk6YazhMhEKWs6omITg9f3NqxYkAudC+a/pcOSKu45s
DiSoqWh03BuLfOvn6QYmKow2XyGmJSCbPIhz1vSAX6zlJpKX8XqU3676eoLj
h26p/lQcT6RMKvp8mDsa3i+cgSwd09GG7uenMkdKPLJxPf2IRnpE+J38uHLt
Bt6/tOcwzRPkvn2SGMvH8Y8fTd3lAlB44OrnW3i9Y6c72Aiw4F7O+rUMuUVq
9B0XBYaW/1k+rMT1kz19cj8ZuArVPhKrcD9W/6DbIIHnndRtHx8jB++2+3CL
CMO7LeqK6nH/9KlonPAG34yS7X1NyK7Nx9yeUiBFMKXVuAX3L6vOlS8e8HVj
/XxOB7LFjapjilRY/TlzmqEXWb+3aupmAFREHlIUfo/311IMMfcHzk3JB65D
ePy5Bxwa6Pp9o+9J4CfkuIA2GX0CVJOHJSsmkIUu7MptpcDLzR1ZvNPIhsp/
h7OIUBUvbdPyHZ8PxoZyl72gLFNW+fU8Pr//49TfRYBjj9q/8S3h+s6yvjvm
DqfWREvFfuP1yxV+M3KFy9sJwuF/kXkuGbbGE+G84nJiPL0guv4eYv3CQ4Mp
wW2MJ7mQZfrUFkKjYa/H3VaFHcgxxaqRHfHQr6mnxiSHfP6OylRlIrR+/v7b
WAX5s/bJoGsxoJbkdaJEHXn6LMONyghI6rQrvaGHXBz6tXU2Gvi3H3aMNkHm
vVLu1xMOsdGMfQwXkCcnc0fWaWBvTdkzYYfsafXsQkgYbN0bdMXMWRC/fyuS
+ZoK5otskQHuyBI7/+tOJIC6gVPqEgn5VdUj0WUamLF8kXIIRHZd2DjRGAJ0
numRuuHIpWlPI5KD4Px+5XPDMcgm/D4a5r5Q8kooRyER2dCpUPwEEdaulK8a
X/nfdj1fdL0SmbMfb0xHplHGC+up//d9b9l4PXysDSf84eord3JHIbL8JcGk
yTCYeZP0R6cCuYJbh3MlAqg7ijnf1Qri+6cDMhLxcKysw3XxOXLKTr1a1QgQ
sDLSffAK+aEDS31YOIgHLczGvcP50dQ1uhcNClHuTxs/IYvyLud7RIB/Qt6F
qS94PuFeQmEwsO50v759Eedj9/Ugixi417krdftf5NMXyUub4cA9d8pVjF5I
k65R63QlPw3uXCEP9bMiUxIK2z8EwrrjR9PYrcg6pjfnOgJBqmc0U4YfObN0
G2eIL8hOKt2EHch85zWFHSngyMF4Z7848nKuiVI7GT1ffBjIkEY2HDStSqeC
4UH95+fkkEszqAZTXlDd9VGjRx45/9Lp33NEuOgTxZWzH/lWQuFRJTIsm9Oz
Fh1Gti5cmRGnQGLebarTf9g7kh+xkYH8tbPjKuDjxbNM6ghw5KTeSy1tZAmB
j9/9vODqzORrO13kMfq5gwuucOdzaMFvfeSm9p7cSkfYGHq5mm2A42nWeyLl
BBUHB5+OnEYmvI6QE3CHM2SeAK+zyHK/nn8I8YRnS6uVUmZ4O4POvTIvUFxd
YDtgidywbczjGAGI2bHbrl9EFuKtUUfP1zRvMNjpgKxuMvpVyBfuL7wImnPB
87PyNmuSIe95vdsPD+Ra7dHHDASQEJYe6fJB5mnQylnyhtarNkYbFOT0bzNN
6Hz/tvA52TEQm7KNPosKy2fFukfC8Pri5ui+UCF+7e9UQhTy+UKSSzUJ9lly
2jXHI8cFnhgbocBnI6vgo1eQh7v/I45R4aLEwZeX0pFnTzrsu0GBXAV6m5Ys
5PWDqlYJVOiX2yFrn4fzN2sr7UeCPb0dtF1FePwbjc5MZNjSZCfRW4Js98wq
9CEJGv9+O3arAtf/m5yvCaqPiaz/8/vI/WaL0xQCxOj8e1dVg/uh19yvA/WH
WFtt0RPkFpddic/IIEhwtLj1DJmmGxBKTwGrzmmC1gtczyGplgVPMGR5+nL/
SxzPaMGjQB9wM64xffUKeVqz2afFE9g/v6F72o3Mem3S4poP7Cyseun2FteX
jvuIsxfclK6d9XiPt7PzprOi6+m4SfOLD7gfp1srGt3hXcmepy9HkKOEHL5v
JcCniPBl1s/I0p62I4xEsBvp8v35FR/vrsBWTIaWD+8U6GaRUxZ3DR+mQPbh
c/FbfiJbkH95MfnDzu+Ce76tCOH3sXjDCv0g2sHB0HED9+u4QvJ0ALTS8pxD
GYXR8wB11tXVH6S27gtoZ0emqB04JRcAG+vdl6K2IRMeXymcD4Qi3t3PxXYg
n9pX0XgwHJwkh9OSJJBZ/xvWfRwA1uDztEYaedjPsPwWAXSp1WYy+5BLB/ic
mgNg0FD46oUDyPo2Vxe7goH5i+n5TTXkWrufjNdDgdd22/wJbWH8vOt7KDkC
Ql9K8H41Qh7sFdPVjIZORY1dAheQs7uPStnFwO6GXdXrjsjVOzolX8eCVqQm
+YQX8tHLaqGpNLD2TVZNIyK7dqnwqxAh5uqKyEFfvB5KaXIsCSiMO6qeBeL5
X8RbK5Lg9MTwmlUY3j+IYxeRBCbMb+sPRuH4kvo37clgKP5QyTcBecGB1sMU
AJ+/c826piFbHPBZfBUGwefbDn/KRT74hnDtWxRs0CdyyZYiM16Mv5saA7f6
WZIbK5EzdZf+XQyEOf5c/tEqZGmmM1IRFCght5Ry1CNP+xYYPgyGu8883yW8
QObMNLmwQQMjd5mpkQ5kWvlXXcMAaNj+77tMN3LDbcvt0kRQnPLftdqH3G40
P6LjB2G5oiFGw8iF7npV5TQ44fryceMkctJ1U+pnGmxGezZ9+/6/+dKl7gdD
aJDBitZP5PV3QR/tAuDKkWUK7TeyzkLh718EMI5J0lpYxf3i2+wZ6gBhF1JE
b67h9WSJ9fo6gTTdv6ubG8hyh5zqGTyA/1jPLh/GHej8WtKHRiqElnj36bAj
3yoLaTTzg5NtkSn5PMjyQeeXvQPgj8fsYpsAclNGYXSWPzwplKp/IYLM+HFQ
eokMVs8e/4iTQI4ine/mI4Pt1pITI9LIPJpPrc4QYVZaIH5ODvmgWQPXcQK8
XfpE+yKPrOyn2/jMB/Jj7z1SUt6Bfz4XVXnGHVofSh/+qIIsd6FszcoLxqxz
dJ4dQR40qSFL+ACHYgyX33/IFvFmeo1ekElaemUAyK7S7t9ve0P4d9usKG0c
z8QDtQkCdBz+j3+HHrKm5dCnO57w2LjoxuVTeL6Xmtq3PCBK8LmU82l8vMYP
uQZvkIxzaH12Bnk6ajv/a3cwvbpnUtwUOf+C8m86D9C5YD/61wLZX6ntw4A3
eEi8DXhjjayqFtpX7Q3vAq1L+uyQS932PELXE446fk93J7z+1UleKxI8Ktvz
5YobckWz8eQ1dP/5+atonBdyb8fM0+c+YLtdZFGNiMePLChA92vejHRd5lRk
9ZarHn7o+rRlkMYagPP37VlxtBdwihWHkEOQ7YiqS3eIEOfGfrEhHHlBITVk
FxE6lvqDuGNwvfbsDdIngtxc0jGRBOTgL6PMKgSIWtxx+UUy8pgUIUrLC9w/
TJhEpODxQU/gtxOIRBUeN0tHjjP9FX3TG7zatscRryOn8CaoDLlCNqnW1SYb
5+/SbiYXF7j6PW/XlRvI7S9VBqLd4Opmd6ZfPjJdPq1M2wXWIv/+vlOE67HL
erHQDcbLTr11L8HzKYUP/fYCs5dPTMrvIPdTm/78I8D93CdBBvfx+Kabd6LQ
/fe5R8tDNTi+oR8Tx3zhzpn468L1yOurBol/KRDYOfkksAnna8orOYoKf8tp
3pRWPD/+YkMyyIufeWL+Cq+v97hSMhneZ04tCfbgen298JWODAdMqvss+nF/
jBwIY0CfnzK1Jdc/IFtf2GqyRgE6AqtS0Sjy8O7jOxX94XbEm7DvX5DTT0lr
SwaA7hhV8uQcPh98U2N8Q4DTmbOYvIQsJGjJW+4PLAV1A3x/kGe/V7dF+cKN
dwN/5zdxP7/1T/IMAnt7L9U8ZhF0/6Ri9rs2EF6yMn9m4kJOz7IvzguAG8dN
9rBsR7aYkNuJPk9aLaLPqAkj51v357f7g7Tlh491YsjBTCZ76H1hzafeLEMK
ubaSZ2DCG4zYq5/skkXWd/t85RAJ4h5cmNGVR57NzXiSRAGZp35zh/Yj+yv6
8zSQ4fFUUV/yYWSd8vuZtlQY1t60FFTH6yF47ZTxBeH2zQv/jiMv89CvX/eD
q65dOat6yNPhB1jm/MC+dii5xhBZHdTal0jQKzwebXMGrydaeKyIBOzOkyO3
TfH+ylx2O4kwIRlGbbmA7DjvbhNIAKcU9XjXi8g8lO83JLzg9tK/ygd2yHQ7
OBRPusME1+w7CUfkhTeEIwEecLiuo0HABTnTcu7wPRfQz/v3Sd4Dx5veE2dB
gLqjJXtcfJBbiMV7ZwjQ8Mr1TAoZmVOT+Sb6fGzSKU/T8kOW6OVgT/OC4sVL
90aC8HhVn0ie6PxlM1VvDEOmNWW6MPqA7pTG/qxI7NnTJeh68LhjbPhbLB4/
PrZSlwgZOmt/jZNwPb67+acTQbjWzZwvFc/XXUfcRoZ7tdWLaddwPenl3f4S
IVGZg/tOFjJh9ALRjgB9F69NR99A1nQ/0//eG4Tqxs1a85HlhuxJa25QYcTA
tuUWrv8tztQRN8h7SbIeKEFO6QnKeegN9sFRH6IrcP76dJfrSLAwd6h+4T6y
altrDLpe7JesmJKoQWZ8PfigiQDTn8ziM+uQh3+Xx3wiwoddZUmGjTie7Se5
ekkg3LH64UUzzv81jUMjRPB3HsnuacPxUdMYlAjAQ0sge75Cbupybf3qCeEe
i/nc3chxVkc8tnlBcMGzM7feIA/eI8bc9QRu8ZWNne/wemfr3V57gNJ7satC
g8isdccK+l0g+4r8aPhHnJ9OL7tTHsAdXDHh8wnH67C5i+ACEvvOya6N4eP9
D+20dISO832JdhO43kZbpPc5QI3yCuujL8h2o2Izd+xh9tzWU6tTuP+En7Py
2sMB7xIG3m/Iym+bul7bwW6Lttfas7jexismly/BVOWdned+4Pw92hsWaAfA
JX1dZAHX+0v09Vhr6B12fsPxE2//I3+LwRaM2ZLpSUu4H1/a8zqYQUxAx6f3
y7ieDC9fGJmBzOKOY8G/cf4CBb+YWkI1MWtIfFUE/3xpekDNEmo3q1O2/MX1
Hqu9JGIDA3UmGXfX8HgF9ReaLCFYI2Uk/B+yyalVss5F2P5s+0utTTw+m2om
tzVQq3ataWwRRf2ru6n5whairt0jHGEQxe+LNVrE2kL+VaN3gkzITeOjJ5lt
YMrtkKIdC7LqQ42XWvagxJWvep8NWXOH6TmaPST3WCZ3cODjed/ffmUHPj+m
2k25kXlWXIcvOQL3E9bg7duQV62Zs+acwIscFXdnO/arEYcmR9izqc5qK4A8
drHlX44TTEz2x1oJI/cqPFufcAF+pZihaFHklDMJ1866gUXiHzo/cWShz9kq
8S6Qo3styVoKe2jEWt4F6P/7mem0G6+3aMpe3xWi2N6fCpXD66GIXWl1hdTR
x4oL+5Bd73OLX/GAvUkpisuKyO2OrRvi6PMqcZP1wX5k2ppf31cnUBAsfTl+
EDnTWucX+rwyDImx2q+K16+8lBfsDv/iZFnk/kOOu8h6scYFHrgoDHhoIOf/
UqSJuUNx6Wp60XHkUhbLH0/d4FT/3a7OEzieyv5P+QQQPhhyvPsksnrYsT42
AkitiFG5TyNLc8Z20xHB03KEKn8WWS75D70/AYbabpZ6miHXPmDrRNtnuiX+
fLTEx0swaj0lwjWxCZ5WG2S7EN5GfR+QKvVg3GGP4zXUyS1xB46WO6M2Tsj6
o3RDMu7Q6LAuzemG4/sXtdfdC+Lz8uppnsgW77fVoPufzJHJ7igCHn9dyIiH
AGFNn5fFKDi/gvNKbzyhQfDI7B8/5Om6wifo+sY/edz6YDCy4/59Tej6WfLI
9uBUGI43/UdThhdwaPovJ0Xi/jNooVP0AmNZ2oF9sdhHYWHRExi+lJy1T8D5
mzu2pc4NNton1R8mIw+KT50Jc4e5J/kx9anIDS/nZXYToJyHI0k2A3nZrIz/
PhHu5RWyOWUj86na/O/+11+JXyIPme61s/WgFyywaH9zLEBmDcktRfGf8/jp
TyvC/SMSRB22A1H28Q7T23i9szPcphfh1KhGLHMJ7s+zI+84rICYssM8rAzH
Hz8S2uYAdsz7srUrkP3vRQpJOUPevQ1K6T18Ppy88V7GAxokZH8UV2HHaXcs
+UBURgih4DE+fyqrePt9QP9gofJmPe5PvzQ6PyIMJh8gOzXh7c7H2bOIkJp7
9cGjFuTJo1F/dIhQOSAu+a8dmTKr3ChMBFVbaVfz17g/xHhF3YjwpM6K2fIN
js99xJ+dAImSHTpr/bg/NTyW2LxgZ3dHgNsgjs+RqZToASeXz2V2f8T9sv/M
spwH/FPatd9gFOd/JKBt0gPdz/AWCEzg/NAFhll5wyuJ02mUr8gmMSPx8+7w
bULC58I3nF/hjK8yPmBQ845O5QeeP7E4ucsbJgb/k1JYwuNfzoyeJoMsj/po
5yqOd4RuOdAXshjO1bVv4PPvtZXrkh+43Ndpb2baifJb1fbfdBC0m/pyeHMh
R11r47wbCrGK2jpVvMjr9ioTfFQwuXD3pKYgsvSdUv6DJKjerNFzEkVOyZJa
vUqB6gSe6jgpZDp59wfJ/hD/Xr61dQ/yeSWiznIwPGdXq76hjDzWq9xgGwRL
73RM6VWR2+WVotJCgDmQebRFA9kwhVmWPQhoYr+jdp5Ank5tvG4fACy1QXxs
BsiizgIalX5wqctL4YIJsuuZdgdNKnQHLvp7miJX13ErGlHgbIVaqp8lMk+b
xCV5CoRqmDQP2SLf17dsSaLCm/ALtvJOeD6u3RRdKtx9ux6x7I5M0E6+LOEH
XWEtMR98kIOrxbamk2FW3c1ehYJMW07zdiHC8q865UR/ZIlJLTVbIvQI/Hma
FYLsGbl+8CgFlp8V2RVG7MTvg5UnSFEg/Owf3ZQYvN70igM+PmAhfCT4dgKy
tchK/3kCaNgdEOi6jJwpMueSTYDP/5FZMtPw+CPMCbbeMEmik+i+huOpdWu5
7wbVE8qj6Zl4PTGRfw45wx66QQHpnJ347+9UnwY4QrxYXbXrDVyPJdZ5aXvg
vXFoJOEmsv7yhPa2SzDXav38bAHORzJJK9Qa+AXCzZiK8Hj0J87usQL2U3Pi
c7eQTeBFRrANlKX6Pd1ZgryqfnY26hIkpmgOGJbh9azodftfgtsO3+J2VyD3
Zp5ObnWGmK+g630PmVWw4tsJdziot9ZS/BDnl+njrxdu4FZKMhN5hNfLVp+I
rn/6DzbHQ+vw+Lqu1qIe8DhON7ijAdm//vDb8+7wvl+G8+0zvN2OPkzHFd5e
6FQnNON+kpWOXnQEKe39Sx0teP2nlKpe28Pr27famF4iW/Dn5HxC8Rr+PLqj
A+dDzauwyA4GmPxWjTtxfC93z969BCZNm5JNr3E/9p0wDHeAPXOz9/R6sZ3d
fNQd4aG34RSlD+ePc/2Jmxtk3JRk732P6xNbJvDBHU7emmSXH8L12y3EPOYO
0nO64ksjyIO6vEWq3jBSVNA0NY7Hq3nHftsHXKfl3jZ9weuTPprU7g2NEndl
fWdwPZolK8q94EWUvPPoLLKcxNrSSQ/YAehzYQG59m1IhpcHrLey3Zxfwvk/
4qnM5wV1ZSV3BVaRly/7Hc0lAOGJwHHpdeRhrQajwwSw/7RzNZdODM1/RXT4
MxF2HuawU2dEHnzqDmueUDtxv1SXBdtT4cRZV2haqpRk5UDWpC285PCGaO3h
ZPGtyHxQc/8iAW6I/uGb3I5s50gW5SXDLd//3hoIIYu6sv3KI0LhRzfCPxHk
BVnyYpIXDHu9yL4ogTyt71xGI4KiZsTDy9LI+ifXbFoIEBlU/pBDDrl06PiW
aQ/Yf8y612gfMoHr8hyPOyh/3/rJVQl5/XH3YU8CrNBv9r5XwfPZNnQ+JkL3
7zQujSPItXk3J9U8gLzirbz3KLIc05jAJRcYY/WdnzuG7JqourrTG86H+L1w
OY6cX8SR3+0BTcdt85t1cDy7NKbeuwMDdRxS9ZGFsretU9DzBEVXc8UQuXfj
6pZMIgwJMLXkmODt237tlPaCmLVMisp5fPzum1FPPUF3i2qwjDkyneKqeqYL
OPRxNfpZ4vhTKrkT3EHHZPLAYRtk1qmq4iUv+Huc5db1S2L4fBSM5/CAd+Jj
17OdkD39HHo4COD83ihWwg05rtorSMkTMnr/Tt3xRKa9cWGy8oRbQ2ufn/ng
fJmwDt50hb3qZlclycjKnH0RXB7wYhfDe2U/ZMe8KvZjBLh9IW/4dyAyz70P
B5W9YU+KiG9bKLJE9UxnsDcc+bzjkVMEHi/l7+YfT+DREr+fE437Z0Oq954b
WAp21kzFIZuU2yjYuUPfb5Uvg0l4+5puULwP+OkR3I+mIqdoLfLFEMH41M5F
8WvITQKuh+R9oIEweF0kC9dD5cOhER8I7XYtkLiB8+F3XIaPAIohslPHCvH+
T/4KUCnQcprNc7kU2UI3dvtQILSnTVxrrMTr53ErkfODN+MNdnVVyNLqTvu+
kyFtNP43Yx0y44qKuSIVPvhE2pU14n45/rUk1Rc2mD+VZ79ATrd239NKBu45
8ennHbjfM1l+5fpD2rduqb+9ePzf9d/GgkGD7nT6ng94/n0bn21oIPnk6LDI
OHLS1EPxjjDY1mTWv2sGeYxDdWErDXrLktqpC7hfiwd69UJAj1NFZMsq8nB8
1imFUODbKkIk/EM+yJFv/pQKfx17Pk9vEUfXD/M3beNE4JES2yfDjGyxfFQS
3V9FFN8U9eNAbt/G3KZNBe2ca0aPeJEZ+wZerAdDSc5zV8kdyClb7ntWhIAr
o4AY8y7kiDel7h3hMFIeXLUkj/zN8PXej5HQm/sp+Ywa8teJF9X1cRBz7W2Y
gS6y5+LUxFI8FL1qZ087h3zUfZY/OQFSaLlL/y4hD3mUvBlIgvoj8bXePshm
3h/ixxPA4ACBvzMYWeLX67raBCjhHrtOSUCurR1lPJcIGS38y0euI3/y8KiN
iYfOu59EpPKR3d+mGuPvv5kyeL1wG+//tbr1qB+sUv8zi6pE3hAd3SYbDj7n
bI811iL/eKLXTY4CtmDtRyovkA+eaV/8FgVbRFee1rYjj4V1i/H5QvSxvecX
XiPzxHRZfKLAJ267vqA+ZMcTA+sKvnDFuUu2cBC5xebBmSwKdM6JJ5gM4+PV
cnnJXtAo9shbaRy564VFWhAZPJp+3p+eQq6O+cn6JRA2x4czlOfF8f1Z6XXx
EFhc2KIY8xvX5790a7MQMLJ34wn/h0xovRH/PQi8m7iMq7dIoPv7wPbDeX6g
XkvmF2BEJjQqqXCTgcNEze8tM7J/ozz3BBXeO5U3tbEhW1TGGRT6QRORnZOV
C9nEls6KPRCEplZVwniQm8rJUBcEn91opE/b8XYB9eU/gaCZQN9xXwB5gX5b
dZoveL8s3v1DCM83I/nlGxFWrNO1mUSQ9Ss852tRf+m9fvzfTjzf+ZcFVUQo
lszgDBdHlnijW7yXBDdD9YvHJJHbp9Jer5PALId4l0kaufaLvpocEQa2oIFl
kFkPLo2Oo+eBmcSQdVlkml/j8TIvcNdqOrFjL/Jge+HxHwQI4fPPu7sPWVky
JPGQG2jckUh3VEDm8Yy39PGA3MDJYT4l5LFf6kmMHrBIV2KVq4zjc5Kb9XOF
p9Kshw8cwPGr8xZfdAOZGnnP5yrIKcwn7ZdcYV6Vn9v6ELZ6nFi5G/z83rF8
4AieT9nAwxt9Xi4e26qghvNhrVlS4ANf38o98/oP2ZXNPIyJBM7F+7jUNJDp
cgUIlr7QqXW/ulcTWW5CWv0pBXZ/MTNf1Ebu5T3EzxQAXNoKnRV6yJrzD/M+
hgDDgwWxQwbI931E8rSCobq8lvbotAT+Pg7g5giGkIm8pjdnkaUnMjc9abA8
0UWvZI48vKWWlRoOTpXJe3dZ4f3PMWsUhMGZ1es3/G0k8PsDZzPvBMKf4ynX
fl3C8xk1P5sKAqrlecEDzrjel3hYftLg416WLVkeyJnHO4tzomFAbXBfCxFv
/0/nTkUc3NtnPH3cH4/38uPib3S+3xFu3BuG49ncY16UCKpL3I5rMcjnxd5d
17oCI533HequIJ96oL0ZlAqmuXwK2zPxePkv06pS4GygwafbN5GX/T62nLoM
B77by1wtxvV/cVGiJhH+GF9v5qxAFr36hvA1Gq5Iib7srcT5SZeRlkD92dnS
m3ofj5eckM3jCamjqS5GD3G9tN541nlAyZ7kyy7VeH+ToSNvCLDThTSt9Bj7
+54eLV84VhR4IeQJrtf48TiPQFBQmqX+fYrnt02aQM836me0DMKe4/OL50G5
TDCkXysdFm7D8W/LOuEeAW8SCcKJnXj9g+JLLdEgRmMRWnojgX9fZfX3ZjzY
N3GTqwdxf27Z6cmUCCnBrTu/juL+Xxgqb0sCPb7QXOoUrp/N57/HLoPXOkPq
43kJ/PtUjpnIFBi8uMHfvIL8vnmZjT8FVt8n3H23iev3U0hJNgX6Ay7JfGaR
ROOduLsolAKRH46w/bcVuSH0QqJDMpyMkpjp5pPE3ydSGGYcA3q/0z8p7UBe
ffnmXWQ0/KQqZ58UQ67Y8PrhTIOM2YaqdElkiRqHLotAEPtvo0VRGlmTwp7Q
SwFvS7+rn2WQaX/byXlUYElZKPu4B7m9oqOq3Q9a7p0+81YeefrfwtEaP9iR
znDWRxn5vlQJ03QwpLEqzY8fRB57c5fyKhxIdxuZ69TweFc1bKwjgT7/o/0j
wPO9IhN+xYLbdc/WjhPIuSPaCUZxoDv/+7S6ATLFdo/Mq2jwn+phumaC5x9z
+GgfDbJTxtsczHD8G5sKquh4v9hrkVaS+O8hPvFEREG9fvSAoR2y/okVlt2R
0BAa3xLgiMw4yFNdRQOa4pRmgAuOP3Tu85ofZDIV7TV3R26q/WQ07wvlT4ay
5Lwk8d/7PA1I9AVmPmvg9MHbr/FbHPUGo/uv6X4TkAktwoK56Pna0NN7ioRs
1zHzQcAHtKxNezMokvjvC1PEfrvD9oqAEidfZJ5/OqQ5T2C6M1JP9cfjr4gX
0QgAobt1owORe7M0zgYToPuXdnJjMLJ/w5LqKyJYfex5sjcM2VXe1vMSGZg2
6bfphSOb7Mx68JkAfmZ7tJIi8Xj1B+L3kMDS655wQTTuh8fKDcUEuLbCzZ4U
hzx4Zj3C3A/2uZv1OyXieqX/d7bbF3iDtU9ev4ysesW1JDEANIW7ZP1ScXwz
OssbvnB7/4po9lVkuRcWZYJEUKrhKf91Dc8v2uU6TILWgtcXE7LweI5TN24H
A1m+O1fsBj7elHG1IBhEdgcOXypAzv98b4MTfV6vBp7iKcbHGzHU1kXA+vas
rc/LcHzDC3IxIUBLm6xmqsT5+qtwjTccVLaO8px6iNz1c8ZnWzhMS7etnnks
id9PyL0pHgW/nK54x9dL4u/32j0wQoO7XRtPwhpxvQ4FOTz0A/GzxPrTzTg/
+9IZ/EOhaZj6ntiGHLWX1zOJBp9I596ld+J8W/iuJUaB4GCU8uVe5Mn0Vs8v
kTDzvuG58TvcT2ujOsyR8E4gN8P2A453M/gc0EBiJmTv8WFkizTum5x+4Nin
57ZlFPfXWePfW1B+NS33Z4zjfDhd1SymgNEt2h6uSVwPSZXnj8nQwP7c6uBX
PL8KQ5oaEW7Qq9SvTeN+fnZl7agvVMavXs3/jhynKt8mQ4Ujhj2iH3/g9fA9
0u0PgA/GX5jmf+Lt3Ba3jGnA8uc9z9RvPN/JZPOmMLBsspU1+YuceVS3Wj8I
Yi/R/Bj/4XyzMYUXUiHnXyb3mU1cn7GWWkcSdCm9PC2+RQrlf9cE/aQnKIud
fUVmQJYgmw8XkeD4/K2nVCYp/D57RvZWAqiGEEwsWKTw70Nq5fd4wyD9ILMW
GzKdpb9zjjcMMNI/UOBAXhDPL3ziDSt1A2+9ufD2srvcbCT4QTH2suZBrh14
2ufpBzMXk77mb0ce1Jvq2BUIbq/7hh8I4v0bd37QpkH/rqQ5U1HkigvjWikR
YCJD7SmVwOOz3Yo1CAeOytn0W9L4+GMN+z6FQevEme0n5JB77+5ZYgiBwdgg
WvA+5EwJI7f6ANi9f/++04rIrqfumib7woFjD3uZ92Pbscq3UmFvXp672kHk
JhaHnvQAuGj+5fZWVXx8x6GhB6HAmMld3q6OnEt/m2cyArjps6UJWshypQrf
bsTAstGDwif6eH+li6t74mFHAWVPkDG2IZcIfSK0kIPf6ZpJ4fehxe8rJoJK
JzWa8SJyw8Uvz34ngOqulQMXHJH57JgenU0G7usMQ2UeyBY9+3O1kmH/BeGJ
YBJyEqu5tGEiWKvPSgwE4PwkGay4JoNjZGy6LQ3XT9SrWzIBFsWsZHljkQ96
nzZ4lQDBv+jWbyUjy1teP2uQAPMXTWPYriF3FZzZk5YMIPrnRW4Osuafy78N
E2ByYB/zYgFy+o9XrGfigaG5kUmuFDm41GDjYxyIPBQ92VmJbNfkx4WeD/qk
GJoNa5DHmrMmmBIgiJdQx92AnN9YNcKSCCYffNfkXiCfFxFhdUsC8jlR97gO
HM/0tSch8RCl0Bz/swdZx/V6aGk8fCgKvl/aj/f/MJM9GAH+sgodP98jr4pG
tZqQYInhmbXfB1z/icu50hR4QaJ/5z6CTPMVac4JgzuxnIz7P+P5z8k1CEVC
7dXKx2+ncD6U47pjYuDMjbi93nPIjjKunV4x0NX08GvcT+TZ5NIF9yigxJyR
T13BxwsECUhGgZByf1HBOnJKMfun4+h5I1GquYVulybdLQ+1AHR9eWsr6/uV
ATmuWCafKwDMA+oTRZiR5bryK0qJILb9m2sRK7JqN2VGgwLn5gbLz7IjmxTN
iS27g1PXB15pTmSJRS6agBdoX7wuw8eNPMb14b8tPqCyYPtvdSsynVK8p5E3
DOVba0Tz4vGiv7DYU8BQi1rDxY+cwtFaq00BzePkqT5B5PyV+Sv7feHHgM7h
X8LIhJokX3YiZLbzpe0UxfNHh33SIsL78weGksR24fvHWc1AMmTkyguxSeH5
NN7OjwdBfpRbiJsMjid/KT08HOa/dE1I7kNWj07OGo+An0NHSZGKyEKlPmTO
IHju8atk535k/5j+u28o8LrnWMz8QWQ7Ce2fl0MhrXCUNVdtF/572Fj2hxFQ
1KMcsqaBrFOt8yYkGmarjhbInECWTpVNQfer465fHIQNkPv7ytk7Y4GpnOlU
pgmOlzE8cy0aXiumemia4fxtV4zJjwHjlcpNLWtkVik/E/Y4WFteu81/Cfn+
b5WsU5Gw71Hhv3In5CbGHBvTCOjlV/abcUNODz309Q8NQgL2K017Ibvu5Gj6
FQZXkx9tnyMiW5jwpW2nweDA2cWrVJyPs59nD4cAOXW5I9YfebCLqxU930mq
LJfKBeF8c/1bYaZC4t6o84MhON/1YdYhVChgjFfioOH19MoMZhDhYs6/GdMI
XO+aW32mJCix4r7NHo33p48ZvE0F9ReMvSaxyKXqVeb70fbI+3fuxuP1MNiM
fEXPY32vWgKTcL5D3ra7+kKzyHjf3GWcb+2H/plk4GTyZNmVhsc7ZZ5bFgAC
jKdyLl/DXp3Psw4CQtzJ3P+ykHul1llcQ2C19UKu7A1kzdlwOrswUEjdYu1V
gPMvf3NDIByI8XyTAsXIPOMGEsURcOuGlcurcuQuE1Gu7gjYd+Z3Bukesmi3
e2M+yu9E8tmL1Ti/p2x+lEeCdA/ln1Qt7k/LI+YKofD31qVMgQacj0rngdww
mJljWShoQm7YlWWjEAHvSrUN/Frx9u8/PE0j4fQR94OFr5An1bJv3YmCs1ej
z//uwesheNFMoiG92nxP+Dtc/2j9c/tioLRlIyT+I45XM/esZBzcoGUK+ozj
eOadnTNi4afdsLTGFPL58K2H1GPhRcH5009ncT8yjN9ejwbL4aGddxeRrb8J
aTyLhJyRD7fv/kZmZFoXp4+CuB/GTr/WkKu1B/+JRYPOk5KWQTppdD4p2oYk
R8J0qkCWLjNyik39mcfRYDxUsvs0B3Ku5IkDYlHw2Hangf425Hz+99emY8G6
IAfyBJDTmf+8MY8GR6U45v0iyBKqD0UMIiA1aOcXMQnkamXTwMeRYJ8z6Bko
jawTNivmHQ4rosNtB/cgn2fmdp2JgPmz8ve0FZHHBjQL/osClaNqxTkHkHlu
qAzbhgPjurXTeVV8PMuV9c8x8E09We7OMeRMhuecVtFwTlU2R1AL+dacy6sH
4fDzcPOkhi5y8F8PmRs06HtHq5EzQI4K+qtVEgm+pjZ/7xsjJ21Qt0tGAIlj
5oDCeZyPgb2fF8LhQMWJ2lgLZLpIEr97OPw4kMopZI3Xd8i6MCIY/lT3J363
lcbfFyD6NycUdszvONzsgMz6Zv/ZmlB4+OXl7nvOyE3VLiEufpAR3Cnh4obz
81h08BkVfCLNjpz0wPn2uu8q6Q12yUek7nohxxmzmouToZUt5uymjzR+nidH
pJLgu46qqCEZWflDqpFzIDSMM74cp+L9vzqa3aWA3KXoUV9/ZLs1hpZSChy4
+ensfBCyyUJH9osgCLrWFnAyDFn/IRx5Ewganue9LCKROa2OdP9HA6Zkfk7h
WGRVZrbfjKFA5F0R+JSAx9vHaS4XCj1OiRK3L+P8ZBcaqoZCULTe9vepePu/
sWuxAXCTNV/iVTqOT7jFPd8PJM4fily4jvNhXc6nEgB3WI8Im2bjfN3iui9N
BlVd88uHcpF7BxnOsnjDO/3iPLs85Gk+/wgLIvTyzPC65SMPgkChNgEG1gws
2Yvw+iwE/2OnQp2WEvfybdwfR3bcNEL3a/YP1VXLkGlbhCmSgfDlxOQLpru4
XoJX1DxD4Uexw1TvfRw/65rIhVBwZTDVz6vG808ksHiEgoldJcP8Y2TNqVdD
0YEgdWAr18l6XJ/LzAa9gbCifqzxfSNyqRkh3isY1gSm6nqe43h7T4+89IP4
NgZbjlZkQvAXuZEAiCww0atsx+MPOGsJhoApk+CMURceT0yF+18w9Fh82xrZ
g7fnZB9G1zuT2tlT5W9xvtZ5B9UCYONIy0P/d3i8f/UaZF+gssvbigwi117V
cOCnwuPqHbwrQzj+s9TrI77w7Oy+mIQRvP6FqPwcCkj2dFbDGN4+wUAto8IV
0ZKFus94PI+hT2/IIFb14pXiF2T/6sneYjJUiAe+t5nC2x2rLtKIwHlXocll
Bve/R66RHgEyAu5Uan/H53/78FSjF5jLcZbJzOHxZ9mLlbyBI7lfjXsez28Q
wxngDXSyZTHDC7j/bp58je7fmRIC3mb9xFZmftrvAaxuq8N7l3E/L8yV8LiB
2Ynr9c9+4Xq1zM0YuYG7oDHfuRU83v/9/O2I4XVS8CrOl2Hk5DV7MHa58HTy
D673A8mKKGeorWh2pq3h/JqlZzxxg9fEN8fK1vF8Z2YJyfYwZufXl/IP9+vn
p9U/rSGQ1XwjagOPv7RsFW0DJZ+TIqw3cXwn6mMWLOE6t4fjYbrd+H3A1v/U
rSAuL/0k1xZkiY39t4ctgb/nTeof7PxtxSzxF6G4qZZdiAGZR9jn8tQlWGy/
UyPHiHw/Svke+yU42PY8ypQJWbnfdrHLHjSOS9wsY8bH35+6fdwJDC4m6zGy
Ivc2vYkpd4Jc6mi6MxseL1rynbQzKGqEx/az4/njRfeOOgO1rm5UgxOZUB0b
edsZ0swabau48PFvTtLpu0CP2ZKZ+lZsBhPyFVe4PtHn0cWDTOtiPb3FDWbq
tNNIvHg8p3/O9u5gkRz3Xp8PeeGwkY6jFzhumBK4BJCbeAZyT3pC79Sdf3RC
2Bk271R94FdYlRp5B7Lcc/WxVDJ8fPt7sV0Ux3d9R/NdEozZNB8WFcfb7axl
sklQX79H00cSefDrUYNMErwMUv0F0sh2dL6l0b6gwB7AWSqDjyczPtEkw3Zf
wZNH9mDbLk0GUOCvvIGBoDyy6uMb2+j84N63RNZ5ReTSOaZvT31hUCh5NO4A
sj6RrbY7GGyS7Qo+HcLH38rhrgyE58K2cmJqyEIOy0fWAyAtqjeySh05zizx
Y3kwENrnDu4+juy/ldrSFg4uF3Lf855Aro2lcHmFwXZ9V+Of+ni9VNu2tVDo
iDZzizTE9Z0j9sQFA1t0EkHOBPfL33tqciEQ803i8p9zu/HfDxbNxoXCam3B
/BVz5BQyM2dVMEQS42PUrJAtWo49NgwBCdf61VTb3fj7EF+2XwoH3qUz3wsd
kNv3Wb5Cz5tG7GtX7rkgz1rfSjtAA5LUlR0/PZDT7Uz2soeD0IVHmxkE5Myh
3PSr6PlPVdtiLxXnO0jF3gjZ5DFcCMDrs+u9UU9D96N3m3xCkNcDBxgsaeAt
e9QuNQI56rNKaEwUmFWd3e8Qg6xp2xKH7ofTmb3kPBKQVw3dhsVp8EKYP4fh
Ms5Xlua1F8EgzWF262Pqbvy+B8upplCIcl7t3LiG+80rPg89f6Robl2Jz8b1
cLWqkI+AUzl6Z8rycH7cx11DaDBgJvNRp3A3/vnLr9PDwXD5R5CScDHO/9OK
wsJQeEFceMxQjustfEv7fBg8U/gVZnIXeWx0tyb6PNz3WqjiwgNcj5DL96Vp
sLbdgGZSg+c/nFbwKAySTIWuVdUh6zAfOpcUDvvaFveyPsXxRHVW3goEUbfm
C41NuB8Eo30fhIDsm3/2Ay3I8vlz0o40YB9gzlltR04SlB6LokGZZ/+Omi58
fIXnxkQI0E94Bov14no9fMFpEAQnWLx//OnD/SbFlvIxFCSso5+KDSJ7nruo
fpUGo78KpGOHcf6dSbkF4fA5d3p30ijeX/UQu5w/tM058fNP4PMz9luQHurP
rsN2u6dw/IHa+47TIFd1KWHfdxzv/cVyIRpsK9W0+f0Dbw/yyDYLhXDOLHrG
JXy+pl5KPUyDYcWfT67/xv3A29F8IxjK1oI90v7gfDubRb3zA++J+M1n6/h8
1XDJ9wwAv8wcvkQ6GXQ+lSaXWoSCp+4l0gYDcqmPwo/sIJChmJbGsiD3ehXc
OxkMjfOs6u4cyE3DOTf4wuB7cc0Xla0y+P8tOBkZhYJ8FEmRhReZ9dvXE9m+
MNKzp72HTwa/L/fktY4vVDsPfu0WRK59RPm16geHau8qqIvg/ZPKD7sHQUXp
84Oc4nh75E1VWiiw7ynseyAlg39/xLgiHwI7dbTa3HbL4O8roLuG7q9MdKfL
mOWwtynvnELXj4rVkt69yCbovsTYF/abtYTGK+DxTl581EYFZy77lHhlHF/d
XBKdP7z+tm6bp4Ks+v19cLE/VJMDVhYOY+tN1qcHgkjPg9cDR7E/Nj84HAb3
Pm1/UHYMOT+YR+SKL5jezfvNehxZmWom/zcQvvac/3hFB8fL92D3kWCYb7tU
/VgP57fWpV0jAIbZcoopBjhfgq9Sp0LgZkpja/ZpZKHDon+UA2D1QHXllbPI
7bx39UrCgO+nmo2YGfLYqkIwNRjkw9MHay7g/Pv3v60PBgn9oK0frPF6jhx+
LIzuv6qCvP3tkC2sGVb/BkMK89jBxw7IctelVH4HgK9Y3+fbzni9zzJ9qH6g
un356nF3ZB708TYSDPHMSYWtXnj92c8oEsFwqs5vMpCI65NxcWt5CHwqHDmw
SMHzGSqRHwaB0sjnmUo/vP/bPbVzVODsPWD/JhB5OiOseXsAFA6W+HwMQb6v
U+ph4g9SQier7MKR6dbZdu4Nho4uu6kt0Ti/t5/ms4VA/uyxl1xxuF4b0xs2
/vBsv8Ydk0TkVTl6CcFAIJ8bMnp0Gc/PNc6nEARFFK/Mw2nINLas8/TBUNTE
zhZ0DY9v9y1qVyDYuUrttc7E6zn2lJXND067VeV/zUYmsMRVn6PAyVDZoe15
yIMl+Z1uATBAMfMWKMDbq/0K+PzBcLiyafct3C//vUgL9IfPj4VNd5XgeIbN
imb9ILvL32qmDNfj9uoBZV8QqY/ZVlaB80Xxuf+PCpJMBCXNezjfJqfmaykA
NL9ajYe4nwf/01/2g7ARpwyfGrzeb6T5mACYPGb5yagW14uhCH76Qujev9HG
9fj8c9xU5/KHrtSjxVef4vUdZaCXJMGD1g6L9md4/5sB6beJkMy6Z9auGfeL
wN/sFgq82rY6OdKC4z/p3zZFBpXZW8E8L3E/9jk/TSdCV7lVmHYH7rflGv5M
Ivx5nNp3rhP3p9v9gggChKuJa3u+Rtbk9Ax+QYAE8ah17R7kFLvTGUFe4JN7
aFnmDT7fugWD0P3hSlbCs6q3uB6DxjVdriC+d6E5vR+b/sJhHm+QnDH+afoe
WWJh7RevJ7yfUXXiGMTHc6QomnvAeiDlQ94HZDveOu0jbsDsavX66Edc715v
jWdu8LBVmve/Ebx97pQMPQF0Y6/zbh3F6xOWZ9H0ggFO81v847gf5deTDxLA
qiWsT2wCz9dwIuAkAfZOkyylviD7i2UdESXAIQWFv9QpfL7Ivf2XS4ITHmG6
XjO4HuO7Wik+wBZoM1b6HR/vu9o9TATpbYO3ludwv9R27bIhwa6fN52VFnB/
sgD3eyLo7z2qVPAT1+P5G53LZCjJC1jpWcbbC9eO+xKBZ7iKIrOC8//9zUwV
CbYIr14I/YPXOyW59xkJzvwZ+Plq7X/52mxzJMGOVHvbwxt4/8bzjlZkMJut
Wuqkk0X1/ZBQWEEBu5VXgWoMyCYWtaqe6P6sVOFPOxPyYCL/UhAFTjWfoz/O
iuzfqXyyiQyNS8oXwtmR8xNnHtGTQDrH7ZULJ7Kdb8J2F2+49ic8QZEbmWcq
eounJ/jrOA7/24qsXCkt9ssTyqoiR5u24e1Lv/cre8K0G/2x+u2y+O/tvg/c
9oFhbkINpwAeX9brRSIJoqZXsolCyJqvNeRlyRCSoHC6bQdy+9a7WbdJwOVv
3B+3E5nmuXU/ny+U5lnMfBXH6z94snSBBIffsZhYScni8zHgUBF6nlFi+bEh
jcfr+TsvSoUKD1XTJFm8fTJezYMCbsqpa9/3IE/vbjvwjwS1/83Pb5HH8Vsu
FN4jwI543t2sinj9HjvK9hNAIMrX74AyzueA+NWzROhsONhRux/nM3FCxMkV
JM+flkhVwfmhZhGjvUCuqTTxwSFkVbs+SwYiOHK20rKOIDe9aDkT5g3b67cR
u9XwfFSniBIiCPraSwirI0sMRgeakoB/008nWgPnS69C4hIZDi13HuE6Lot/
P3EzGyjQi/+PqTaO33HxB3r+FTu3JE/WxfGlnXwi7QtfGivq4SSe36aT6ugL
7dPNmo0GyELGD+SWyVBqZcR2+jQe7/o5nVAKaLPeFBI/87/xkgPjfCFn5eTm
8Dm83kDzQ/NUSD4VO+Rvhpxy/duHTxRYGhicSL6A6+2RdKrUH+5+CxzOsEbu
vcbTqucP+2tbafy2OB5PM6lfZHggG68RcQnPFyzyw4kM2qrOH6464vGipt8n
+YP0Ls7SYRdkVnMlqm4g6Em38wh74PWyjZ2YCABRD7Ppk97IpYdJDej6V/Lk
MPsmAdkimH4rep51IwsVjZFxvdq4XnL6AVXfXlnUD9ej9LT7cAD47El6eyoQ
r4/FeBs1ANb/CCc6hiC7Rnm3vPYHyaHBw+/DkOW2rFxMJoOB+f1k/whc35n6
R7xUCDmbtiMsGq/3w1aXg/7QIHpRKzUOefWMmUaqP+xtG0x2ScT5NxixeugL
2QHVbucu437NGflk4wdZ4WXfuFPx/lDKMoz6kS3A5+1V5EzNYBlRX/go99E0
IgP3wx8elTAqyKmZUOmz8PoiStfoKFDz63B5ag725KES9PyjWLmYNXsDnx8v
3oUMkMCgaYeCXD7u5xT9LHT92fhBsx0vxONT91/toILp46LXd24j12oJEM/5
wnppzL+8UtwfyYJhWX7/d79yB+9/1y3X1B/iuYeHl+7ifIUetzlDgoePheTd
78vi9x+/BDwkw0m2ExNiVXi8JPu621RQ6u62+FaD+0H2dIWVL6htV4TOWpw/
ub8HWPygpmfgW2A9Pn8mjC6GUKGKg3lg+Cnu71Hipa1kuLeurRPUhLfHzrst
UWBT+2AW9QXO39GIkrd+YNR2SulTK84vb/V9HTJIkks8oR1fP5y/fGMjQ7JO
ucTcK1zvRIF8LypcYeRdK3iN+4FOo6+YCrGj8mUMvbifB94TuMigV7Kt5Mxb
3I8aMvM+JBB2e6Dg3I/ry71x8BYBVO6p3wl4j+NXtpzNIUDPTfPahkG8vqgB
VyESyq+G9taPuF4BR83TScCz0cF6bAQf728h702ES7NnL94cRY4j6d3iJcPR
gdaS0XFcL7Pr59D19PgR+WWbSZx/OhWHv2Tg/hDxvvwrri93Da8tCcr26ciz
zODzMZ298jMJPPN5j1p/x+dDMdm7lASxD4tdc+bw9pR8yh8ikCfumBPmcXzc
5xZOe8HgbJeC1iLOfwaP/U4vqF9LoWou4fr80Aye9IGjpfqVyr9w/l8GJjL4
QJBQjdnWFZwvxpcx37xgaiTAZssfPJ6ZYbCED+wTHs3p+Yuvp9Xn3k94wl7d
ffsr1/HxPc3nZ7zA6/H2j1c38Ph8sXmW3nDrOW+1N50cqlfRwpW7XrDf/sOd
7fRy+PtM3ION3WGxgdfkLwMyXcU1bXdvsI5KdypjQr7vK2qx6A6f/B9sPcyC
LKHfU/DKFfYUuA4XseLtUaTOYWcIHz7oeYodmVbzYt3VHXTzRGe/ccjh3/8H
b7C4w4svE/m3ufB8fhTDOx5w4Yuws+JWOfx9SLbnklwhe6xl95ZtyDzV9/7u
84Kf45pfvvPi8fibVu54w8OA54Y0Pry+YDZ/XTe0f5GgkADe7i1TGewGCe9+
j38VxNuNlW7PekKsePqnfmE8383+jlFvSPtQoR4ggtebnzh+wh3yj2foKe1E
HqNlVNp5gK1TyUarmBx+v4mX6OEGN2800/lL4PGiqiQlPOC3++ETh6Vw/t6p
6016gIe9XcHmLhyf383ma54gCb6k8d04ns6L23Z6g+FRl+sPZPF8D7ca03tB
R6GIbPEevJ5Y3TV9H8joWKZo78P2TBvpdwMR/qtpAQrIctY/Z+8TwXQ8uT9d
CW+/9H7rEAE+Fgl02+zH48slZd70hCGxT/OyKni99/xE0zwheNC58dNBXJ/s
xGlPD/h6wCZu6xG8vr4nxjFEYKxTnd6hhvdX7t+wJADLTFKu9n/IQrSCwhNE
cN5F99rymBz+/z1ZkXUEaCNXbo0Duf//83UinPoQIlV+HI8vH5TBQ4RGhey2
EW05/P7zZ4kbRHh6o1fBUxcfj3/wRAGR2y/bfujj+Y7WvuSjgKZMVD+3AY6P
bdKLjghCY9wCukbITd2mnE+IYKd4KMrKGFmTdIB4hwDO3gOVIWeQlel4TbcR
4WPVqk3yOeTSfezhIQQQP5La98gUr2dHyy0DIjhJ1yhJW+D93cXH3clgvKdE
Os4Sxy+bUiJOhrvjz7rqrPF6mls1k4ngNqGbJWOL68+l6uhMBqVvX6WTLuHj
D9NdlCdDfY1hzIQDzre1Ikc9CcKPvy0xdcbbbeQ5U9H1NvYEX4UrXq9itgO6
H3Qo+prw3h3Xa4y15hwRephnK7i98PEi+3ieE2FM8VhagI8c/n9w8XvNyaBq
NSe+nYTjtw/36qKAkaDEByoFxzd2rYOfDH254kvPfPF88us9JiS4TN+OHjOR
BxW0D8WR4dPyzodHgnD/p91rPkSAmZVfe3tCkC2EmtrqKeBAkaWa0vB6JhLP
HKBA2PKVR4MROF46HY4dFFCtcxjqikZu350nVuAH4/eu+HjEIevX2JYto/21
YtnFE3G+0hsGcqnQoHG2vTEZeXrc/Mc/CgQwx7f4pGAfezQei57PB91Z2K8i
u17hFnxLgbNrDjzcGTh+wQ49CX/YNsgi7pGJ++OLGHWaBBlvF/N/ZuN+6Dfe
qk6BsqQhi8lcHG9BYqiID6Q9k9u0v4nXc514AN2vLD4oLCotwMen9exSIEGO
WuncchGu7zF5E3sS7ExUKdErxtePJMuua+h67jB58GIp7o/nMV4VBNB4w/vY
sBznY/Sr1Ko3pFpY2sZWyOH3XdS13hFh6zuy2cF7ON6JzloXKpTmz/qRHuD8
WLdxLBLB45jn4+tV+Hz5ur62hwga27mDymrw8ZXcOy8TYKLoq2zFYxxPdIsz
PwG4Heq07tTh8//nvruLPlAX8llLoAHX553+FgsyeFnnRvE14v75fkMEXf+r
XPaKjzzD+aoeK433hJJpfcXN5/j8Yln2R+eb6ov/t4yN+UdA6efKP4mWYvtg
x4NzuI+D0sOHw1H3S+xDb6UFO58E+f+Ezta9hfaGp1vTp54GxXfb9wUTiuwX
Tk16suMsKL0EP3smDexv3gUmoPOg9FenMnNyvv0Xg6seSpeAfIvZTOGNxfaF
O1Qcp18Bxa91zaHlxfYAFmTZwg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{2., 0.005},
  PlotLabel->FormBox["12.41521648`", TraditionalForm],
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.4620911061875*^9, 3.46209112571875*^9}, 
   3.462093898015625*^9, 3.46209615928125*^9, 3.462096417328125*^9, 
   3.462100495359375*^9, 3.462102124875*^9, 3.462263330453125*^9, 
   3.46227014040625*^9, 3.462270280578125*^9, 3.462271532390625*^9, 
   3.46227238084375*^9, 3.462272943890625*^9, {3.4623608495625*^9, 
   3.462360855234375*^9}, 3.46236093771875*^9, 3.46251000684375*^9, 
   3.4625246833125*^9, 3.46308397115625*^9, 3.463098489421875*^9, 
   3.46321007734375*^9, 3.463220826265625*^9, 3.4632228010625*^9, 
   3.4632230571875*^9, 3.463283466171875*^9, 3.463290476953125*^9, 
   3.463290579359375*^9, 3.463290710359375*^9, {3.46329078934375*^9, 
   3.463290800625*^9}, 3.463291592234375*^9, {3.46329860165625*^9, 
   3.463298618390625*^9}, {3.46330119146875*^9, 3.463301195359375*^9}, 
   3.463301453890625*^9, 3.463383230234375*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwUV3k4lF8btu/DjJ3IkqSQtbI/RyFtokSRnbKUUBQJqVQUkspSiZD1F5KU
EkVSmc0+ZoaUsrTMYs/yvd9fcz3Xe86z3Pf93OcaDf9TB4L4eHh4MkV5eP7/
uxLbZpChxIJKxZSlrCtd4CQx2V+twwKR6FA579wuWPxP+etpXRYoJRVFrNzv
gs28Ol9DN7NgS3JkGPNRF1x7GJ4casQCvbc92zuLsfuPzQKiTFkQn7//THNZ
F+iPy0/u2caCcfj4KqaqCzjSRj7WFiw4Gu87sK+mC3SuEbna1iz4eTd/l3J9
F3ghu7MCiAUP+jbl973ogono5trl7SzYCu+fNDR1wYFX+Wd5HVhQcWGjcPHb
LvBz/bv03ZEFriPnlo+97wIrfaVyzh4WiGmdDvPt6IL0s74B4vtZIKSO+3L8
cxdE3u3on3Zhgf3bdzuMSF2grbBT/I8rC8banYiS3V2wTFIcFzzMAuUdhe0y
/V3QvCWb56AnC/60/w7zGuqCFN0zShneLNjQ/F9S5nAXXKAKfvnPjwUXhzNs
H37DzmcJd1IDWZAcf1Ct9mcXqLskV/87zgJd1pdvnVNdcHlJcUwvjAUbFTz+
/frbBf5WO8Lcw1nwhJn4V2i6CyQfOms+jGSB2yrhl918F8SUJ9z9eIYF2S3K
A15LXZBlEz0/cpYFxuEyf7x5iOAvIFROOM+Cy19FeRIFiFBYWzZun8ACOWqq
yWMRIrxKyvKNv8gChSOlnzsliFB0+qDY1csseOtf6/kCT4RZC9hTeZUFZz6r
X2mXJYIjJ9CZnMoCrmvrth5FInDOk1mvb2J876xuzlUhwsrLlLXdmSyQ8gg9
la1OhIdTUYnG2Sxg/3y48kuLCFnPqv+m32NB0D5DsN1IBPJFd2/efBYcZl/Y
VatPxHB3yr/ykAXpG6NrthkTwXTs6knjIhbwHF6uZ28lQotDTUxDCQsavjrX
xFgSobExKlirnAX1a9a+YgLWT5GS4MkqFlxwddojb0eEKrPtcx+esuDVfp4H
AY5EqH4dsEqvw/rd27z3yF4imD1XfvrlOQvKxv39VJ2J0LrtwOH+RhZYJhGK
+V2JUNNckiH4GouzTEUUDhNB82uSmfVbFsz6KEluPUoEfYNga7d3LDCccPTX
9yVCs4CpsV07CwSFh/V+BxDh+raU9NSPLMiqDSxWDSbCpuv7//v5mQU5C3qN
oSeIIJdLJy0QWdDaYxbtHkGEjeJLpoZUbP4JX7moM0T4RFzYvLOXBXfl8tUD
zxFh7c8PNwoHWLBri+rrynis/33bLP4NscDXzJfLTsK+Hw9q1h/G6lcVvBK8
QgTp9naeqFFsn+zKnhhcJ8L6bYWOlWNYPfmNKntuEiG6MTb11zgLohwuQ8Qt
IvRqtVF8frHgqrlWZs8dIrD0miQi/2L6ai972JRLBEGb/zaGcliwVFx459ID
IowF5l98PsOC/9ppZc8KiZC01UlBdYEFiWLOa4VLifB1TJqevMQC95nVZvcK
rJ6V2ufSVWw/nvLvdf2PCItvBiIT+diwIKQ9xqolghO9WvSdIBuOVXjEyjRg
82hDvZooGw7s+j3q/grTVxSN4CbBBl+Vk6shzRi/SWqbQ6TY4LmTuOL0jgjJ
0SdTDkqzIS5YY3a1nQi/EiNTreXYYDD3W72mkwjKpI8h+xTZ4O/t+Tmjiwih
omVHgtewIf7LE6ELFCLcGlY+UrmWDRX3IOp+LxGKm0Ocf2uwYfTVF7lXg0Sw
Erx+RXw9G1yiyIoVDCIcrbnsLKTDBjd/h8UTX4mgamO3Mr2JDZku3XrqY0SI
Jf6nN6bPhrBnWV97xonw45xuyCdDNggc7j52/hcRLEha2nUmbDCrrKjTYhEh
XQK0X29lwxVe77Z5LhG0Oy27W8zZkGZ44UX7HBFEihQutVqxYSjzh9XNf0RQ
6Soz6gU2hCwfgxOr2L67rR74sp0N5Jvzf7T5SeCbaDhzx54N5x8Pi5UJkYCt
UaqU5cgGHflT24PFSGC9Km5TtQfD451lyz5JEiiHWe8pd2KD19T1PZLSJJA4
8y4tzYUNfrc6SFVyJNCuPLbg58qGmOyd6lZKJNgUlnhzuzsbVmaNiP0qJHgY
r33S2oMN1StNhGx1Etxf//qOqBcbPmcLh8ppkWB31LrBrz5YvXShWyUbSGAc
5n54wJ8N+vvem3jqkuBd3JLkSBAb3vZOL603IEEdt1WnLZgNa5J8qO+Nsfpm
55uehbEh6b79o1NbSZD7wejNm3A2bPaUk7WyIIHq/dKejkg2WFaTzUVsSGC7
dkME8wwbWnKi7n6zJUG4qFjX27Ns4N+iJx1vT4Ijijue58Sx4WbApyLRXSTM
P491PbvAhhsUE7+JvSQ4rGqT1p2E6bE5J57oTIJP8TmFCpfZsOmFYNSIKwmO
ke33mV3F8Jg0oLYfJsGC28kl71Q2fKn3hrqjJKA5dH65eJMNO2omQ3N9MT6e
iWyrymSDMrsh73og1q/4j9evbrMhYxex0i2YBDeWvl1puYvp60hBjOIJEpQx
4vBVuWwYrmLCy1MkyHu1i9B0nw0FQys1V06TgH6B/ZJSwIayemMzz7MkmIzc
K/yliA2VOatauPMYPoofrd6UsEHqRe2xZwkkGBC+1VJRhuHr0lTrmkyCl5F5
Wj8r2dAZauDunoL122p8YddTjM9eztVrqSRA2bUFeXVsuPVLaOJxOgn2jlqY
1D1nQ3aC1J2zWRifsbcM3jayQeVqW5P1XQxPJ+mamSY2eBdXfdmah+Vf7S+Q
e4vhefBhisxDElBqONVi79jQ98yQ9qqQBBrZQyqC7WxAf4VPBZeQIIJwVETp
Ixty+KNkt5STYKLc6KP+ZzZY3W1w5asmAY/nA1VNIhtuF20welJDgoRV1rZl
MhsiyJOZevUk4E04RfzRzYbDs+bh719g/HkLaY30saFV4LTzySYScHCdv7oH
2ZAoIbUo9RbD/yAtg0pnw8OCjvtv35Fgls1T2zWM1WumXg/9QIJXXwwoLaMY
vmXmluKfSCB3qTTmwRg2jzBjIqOLBE6R1TTPcTYUeXni/5JJoP5ruHHrFBu+
W+0ciughwd3Zki0if7B956zt+NFPgpHWfyp1LDZAelS77hAJhOSfhSZy2SB8
t+RrPpMEyw+Xf7vPssGHUhOoNEqCzAd182oLWH9fJzyTx0jgWL9wY/Ufpv9W
UrfwBAlSdvh3/FlhQ2pEjtKjXySoFVfX/crLgY7gBYYliwS4jQ4BQwIcuFP7
pneES4K2weBbFGEOcPtLY5PmsP1aPXyzQ4wDt0f5EtT+kcCq7lYRGceBtDze
c70rWD59964RPAccG04M7uIlw4drFgYcGQ54C6GkjfxkuMhQfyepwIHH9eod
UoJkuFsQ/367MlZPI26dgDAZJvamHNqvygG7wWMWIyJkMApIc3NS54DAjUsD
z8TIcGVE5+vhdRxYXGe7N12CDNRvlFMe2hwoW9cuEyBJhiySU3X6Rg5kOIZc
csOTgSk/4tCix4GAgzlrHaXJoL/hd/JnAw54RlrqasqSIc504uyIMQdSr/z3
m1eeDOoi/TF/t3BghEAfYiiQQft+qvSSGQf4d77RbFQiQ2fJ7rZZSw64y0cc
urqGDEISkkKiwIFx0fePA1XJMHiv8ZPqdmy+sNYdO9TIsOsLtUDWngO2HoNX
pTSw8/fMzOUdOXD85UeNUU0yzObK1BL2cOCfVj21RosM3uOhngZOHEj3uyOS
rU2GiIXR44YuGD5t6c+DdMig9Gpd9XZXDrzNv3rfdhMZUnt5XD3cObAxPDhT
XY8MI4dz/+z24EBb6NlnP/XJMJrQNy7rxQGta55O9wzI4HBiuyqPLweutW+k
eBiRoehHUqBwAAcuXFxVNDAhQx+1J1fxGAdOtH/UE92C3d+q91ghhANRaifl
BraSgSZozuwO44Cq5uuLCWYYv0+2iBWEc2A+puqDvgV2ftSIWBTJAWXPpX8r
lhi+S+OKz85g9fQk0/qtyaCcJG376SwH1F9Ei9QDGUJvizq0x3Hg5zLTL9GW
DCE/kN2TCxifPI3nLXeQ4ZjWo+zBJA4kxdU932BPhjrx06fFL3Pghb3yaZmd
ZEgeCV5aTcHw4Z1UpTmSYX6DUvLX6xx488BN/85uMrhd+YXrvYHx1Xjiq8de
MjxS+D5ZnMGBNb7B/8ScsHlPmK+/mcWBEoumq537ydAQtPrm5h0OyJxMTb7r
guG/a0N0TA4Hbvil/XM9iOVLm1vdk88BoUuincKHMD3iXIOdHnLgNM5jV68b
ho/HuVbXQmzeA1LTxYfJ4JKY4A3FHDD3GO4O8CDD9nfqCWZPOABrV4x1j5JB
sfbFN/MKDiiEC7vOeZHheyO3Q7eaA7vD9VZf+pDBTiVSRaiGA5fqLxwP9yPD
p0WdhJ91HBAedB/UDiBD3vN5i47nHLh4ulKTGUgGsa6hpbpGDrB3fAu9fwzT
B6Fs//UmDlzWS2vaF0yGc2hmwqOZAxPLRKmlEDKsKPJfOtSK8e+R8eRdGDb/
JaaobxsHtpSvpmWdJEOumbKocQfW35Zz2egUGQ74ndD42MkBhrlQ56cIMhxh
HRkM+cKBg9tJ7z2jyDAzNnVpB4kDoVeujODOkGHtC1KWPJUDdz+pfGuKJkON
QWbRQg8HblrpWp8+i9Vrv5bypp8DZxcUxxRiyTC5A+5foXFgzyPhr81xZHA6
2UmzZXCgNzig0jueDI2X5kp5RjhgXTZHXr1ABszmhC+NcuCMHW0mPpEM04ny
gZvHOEBXSXSQvkiGa4purbhxDjCvz+z4kEyGvQedP/BNcWBvVfJEymUymBdk
uo3+xvS6YF1hkUKG5coLrEwWB+LOW9pSrmL6Xi+nv4PLgU4boYGQ62Tw9wi7
OTLDgepR9t+ZVDK0SW9jBc9zYOH0x3PRNzA97zTeNLfIge1x/w7M3ySDxbWd
G5uWMbxuviTnZZAhm+l1JZeHC0oe4o17b2F8kbLyDvBzgTBZf2o8iwx3fliH
iQlxYbXuKVzKJsNhPR+HPBEuLPmlHhS6i+Uz2ZqwXpwLST1pV1PukcF+pmbh
GY4LPRNHr4jkYvt3NNTVHs+FQdkthBt5ZCiN0d7GK8MF16dK13Xuk+FPffzc
Yzku1OcWijU8wOYjdPrrKnKhpVt4v0kBpq9jh9a+VOZC0Og6nfpHZOCo+DVY
qXJBk833c3MRGSSUCre0q3EhW1D3WNVjzG/5jilZa3Jh/trEiloJGTxENETf
a3HB5M2NxvxSMtCLMh4nbeBCjsBLAbMyrL81PPoWm7jQZb+lnVJOhkKX5N0U
PS5MCjnquFeSoeQ979IJAyz/KYLCcBUZDtm3WLCNuJCsnKF25D/svifrYIgp
F279d/zH56eYHxfUD89u5QLRM0FtTy3Gzz79J7HmXFj3eNuP93WYXj+XtkpY
YfNHO61xqMf8SHKTwwMbLlzP21L+4TkZCLjjaT62XHiRbG0a+ALbd8iw4LPj
QtGrVOW/jZg/TJ9Wu+nABaP7TFbYKzI8TKK+m3fkQvc7M6++JkxfDwb0fPZg
/XSevm/9BvMH/YL8X/u48OmDQ2pTMxlUH003XnTmwu4ZEap1CxlSltjHtA9y
4bnOV4nOVjJQLp/yoR/igntGsoX3ezLwjXj/bjjMhZvPc3NF2slQ5uhfFOnJ
hfHD5eaPPmD+4Z2n6OTNhS2+Z3z3fCSDzbL6PL8fF165NTOGOzE/2VOh9CGA
CyrZJofPf8b851dYz7ljXBiZrKnFdZEhPCJX5HAIF06oZHx8SSTD643TI3CC
CwuXOl6FksmQELnm0Y5TXLiq/uOVLhXDT+i4ulEUps+HRvnD3WQQDD23Tyua
C5lRh/Pu9mJ+p9uqonKOC4+6D6g492N8dSSVqJ/nAnVmiIofxPR37TnXM4EL
ey8Ja7FpmF8d9d6VepELuM0SLzrpZJC0l5oou8wFvQPFczlMMuye727ovMoF
MycDx5AR7Hxn8VnxNC4E+FrG7x3F8LhyMOhYOsanXIKEzXcy/OehOVp+iwuU
dW4kjR9kIMaEF41mc2Ejx2Hd6k/s/Z84ZuiRw4U9scVZPJNkkO/iK0zK58LQ
+UQmdYoMteVp7ZcecsHJzTEz8zcZtpKNbd8XcsEm0PRXxF8yLPowEzRKuGB4
1JTqz8beJ4Pt50+UcaEzOt9nFxc7P3rMrrKSC9c6dlTozJBBeuQyTf0pF+7h
thzaMEeG8ajI5gN1XOjb87p5ZZ4MrnP/+vc/5wJT5Pf1F4tkMNZXkAts5MIz
ufJzF5bIkKkS20hs4kJomdOfMytkwC1LPua8xb6bcF708VAgWf3zOYU2LmjV
bPvPjJ8CDlFHLYo/cmFCUnO5V5ACpifcsy594YLAaTtnKREKpPon19HIXNBX
bpO6KUaBDw6niit7sf32++vgjKNAzK6CruFBLvTbSum9lKJAz/Ik4SSTC6XM
j69dpSkQ3PvSGH3jgrddCl1BjgIVR3ZpC45zYXkq8RhVgQKf2Cbvk35hemPs
T/dXpsAi1dHqFYsLpoe+Xf6iQoG7aFTk2AwX7sT7+p9Vo8B2txdxTosYn00X
j9lpUkBoVLaHs4L5oV6R8qQWBQSaP9NG+KeB6cFyf7mBAjfGI6cFRaYBTZyr
kdtEAckCwrygxDRcO/or+6geBeJUpqXuS00D+Lr+PLaZAneEGlY0ZKbhUQH1
w3FDClzPteSjyE+D7Xf/N4nGGF4NVTq7lKdB9egnu3OmFNhVPnGApjoNArTU
loStFPja6qIapjENcez295fNKKC8K1fi/PppuHVH4yHVggL2OyIe52+cBkXc
cNZGawyvrNcVazZPQ03ZH6sGoMA7UnZFmfE05Kgd7N21nQJb3dedWd46DckB
l7a+saMAb4OFpZ3VNJRzmnle7qSAWyanN8V2GpwM9w7X7qaAWSQXjjhMQ1cz
Zyh0HwW2MM478+6dBlex21/znSkwKphgn+MyDQTJ5AfvDlLgT6bTfa/D02Am
QFzMcqdA29kZcy+fabjxRdTkkicFjP+e8/0TNA3R/mc8TX0ocPhQ5FBJ6DQI
xdVX0/wo8FoyxSnz1DQMSgvoPAikgHeLb6RC9DRsebrI/+I4BeLL3y/fiJuG
hIus4x9CKbCg6TT2OgnDW33hmnU4xodJTVBgyjTs6ZXIOR6J9XOS7tV+A+Pr
V0j1/BkKOBVGfrO9jfGV2eeac44CpXlP97zKnYYfw3KDpvEUsDjpVJxcNA29
7VqhyhcpILfznYJb1TTInhqQvZ1CgUjt51uZ9Vj+qdu1LmkUWLkXkfr69TTo
3BzKqcmgQM1SW1vme4y/ipWauNsU0LT3d8/rnIZG9o2M7rsUIEjsSLMiToNJ
nER9YC4F+tzrmunUaRhY+3v/dD6W/7bbWmo/xjfKyat7SAH24tgsMKchF8hn
UBEFOq1MtXq/Y3xEBJt+K6GASMwBxdbJaWhzSmzdUE6BL6VPN15jTcPd2GZH
9yoKlMzzzfnMTsPqDz/vjKcYXg/lbI2WpsGYgIzf11HA3MAqd4FvBtQj3TYn
NFBA/clfPhmxGbD9vONj4CtMf+kWta/xM/DdrVwe10wBWtRu5SsKM9Bi+9ur
vZUCRfX3Qv+unYECla5jve0USKII0T+tn4HktjsmdzspICp8QTZcbwY4Jqwj
27oosPnTooWfyQyMphxw5KdgeKMH396Yz0Ax7yG9+B5s3jMWVALMwDN9znxA
PwWUvm9+J2s/Ay8FqlIraBRIz/txJXXfDBhQu2Lthylgq6DdYOA2AzqjuR/n
v1Hg4VPpIxneMzAxte/b5XEKrFdTunAncAaGeM9f7JyigGvf/Sf6oTPwQeNq
D+UPBVg6Yiv/Ts0A7qvPyCybApcJJz3Mzs7AY+ZL268zFBipbHIZvTADzIif
l88vYPva+IH1+MoM3Epkf61cpoBvxEtz+ZszoMLP41TDS4WxNH/vX1kz0KWd
WtgrQIU70f2Zr3JmwM39uuCsMBV6nuOGPj2cgQj3v/vNxalQtC1l5/PiGVjb
qZ12XJIKhJCv3YpVMzDssHDXR5oK8h6bV3fWz8B9r8cf38tTQTMrPmnXmxnY
GOt/5N4aKpQGS4/8bJuBTcUBvpVqVHjwKPvbps8z2P9R00KBdVQo6+IJ4JBn
oHp9xcY12lS4HxEVsmNgBrolv0nwb6LCAoQ8zmHOgKKWXG2APhXz55XYrWMz
4G1+zXrSkAqbg38eUvo9A2orWV9VtlDBxtpYX2V2Bja3Knj9NKdCzjl2Vsvy
DFwKWtw/a02Fa4MflpWEZiEzWEMtcDsVTsZeFaVJzIJ97SRxzp4K0Wm7dlvL
zUK1/o8TwbsxvOxrqb5qs5CwqH2zbT+W71pc2BOdWTAQSdGrcKVCEJV++4DJ
LFgo8grt9qCCqo/lniKrWUhs3sMx9MFiw5L6Aw6zcNN3XHRXIBXiA/IDfA7O
gq6dYKFmGBUElxWT+XxnwenEj5bWSCq8++NY0xk+CzjTAZv4WCrse3HL/cbZ
WfAMKtgglUAF5V/l8QWJszA0EK5jn0wFuU8haplps+DArWbFX6NCY6eR1uS9
WQiRMOwaT6dCrjFOPvPhLBjuPXryaBYV/DP+vN1bOgtke72XPncx/JoD+rxq
Z6HQoN50zX0q4OvEU6VezsKdrHIN+UdUUHoxLcV5i81jPcEtfkyFu+28u5c6
ZmH8u3Hs5ydUyLNRS0sjz0JUtJ7HlioqHIsyP7t2cBbOUu6/L6ihwiPjMOWZ
4VmoWZAJxP6yQx5LtZ3yYxZyN6ajyheY/p4ZRpL+zELZZXJ6exMVkvuPlqyb
m4VQHiMx8RYqUBe8Ok/xzAEur38TsY0KuKld1oFic1AzOdU81on171kZwZCe
g5ATtDFzIsbH3ltfndfOwbNae09CDxUcHxy/rqE7B0sNUmo5NCrwrdkpW246
BwcmOdkRw1So+50enmg1B0cXTa6FfaPCii4YGdnNwXXrK6QDP6ng8Y77fGjv
HARJ4VYbpjC9LO38r959Dvr4p6xN2VSYrWFv3xIwBz/8fs/zz1FhkehvGR2G
9ZsqlK7/jwrEYzutD8bMgTd994EnPN3wtfvdpbCkOdj16VRak2A3mPVH+Ty/
OgcXIgm6QaLdwMc/9ODdzTm4Wz4/Ey7RDZ9kxfVXs+bAsSz6tJRUNxhtONvM
yp2DjO/E46nS3RD1O+TI1cdzMGnfsNNdoRuUk7S0Umrm4F6Dol6fajdUy22X
VHg7BzOi3meV13fDloDAgZ3kOeC+vocv18fqfR34nUWfg1y3Fq82k25Yr7dh
04+pOVAcOhXlZdkNoX/8HSbn56C1NlifaNsNZWTTl0uC88DU+r2w3bEbBkVF
F4Vk5+H4EuvT5v3dIHR6gvRDbR50+S7fETrUDdTB7D+HdefB962hSKlHN1z4
me91w2QenFrRYqV3N7Sn364ZtJyH+lrFsDf+3fDgw6d1+B3z4G4lbW5/rBvG
/Nf04/fMQ8qOL9ObQ7shjruWWXZgHvJ/iJz7frIb4qskWRJH5uHW2oqPfJHd
IPqx9PyfgHkQubPBzTmmG7x+TRmmn5sH/JMDre5JWD9v+oc23psHblZGmF5G
Nww0rFu8+mYefEaSCqoKu0GvOjj828Q8pOo4X2I1dEPQGZyGi+YCOIl/VOyi
YHhcCqEEuy3Axm3xaiGT3WD44V7T0QsLkLGDIFK31A0Vt/eHlJYuQOGxwKo5
qR4QKP6oOkJeAFLyBD1jXQ+oMjOeBwsswqm1teUulj2wsK3I46PVIjBOVUSr
HOqB5YufbwslLsK4Ws0LndM9UCigcpteuAjhKeX7BpN74I4m7+vg74vwr2Un
Jf9RD+jF/eONx/+DWx11OZvqe+CL4/gGks0/OHORknvvYw/UVb7/Zhb+D3Rc
M52PMnogRu1YkubdfxDcseP26z890Pic9ynv23+w+Uzu7EmeXnCoy/mrOPkP
bCrYugvSvZAatPbXEYUlOH31BuWgdi8kvbyWrLN1CfZYeLeGm/RC9reb+4qP
LsGBQ+MHX+7oBebkQldfwRIcdzhGnPHphTFCubvp3yXI37ehcS6pF9RP0u+c
MlkG+fM1W3APeuG5a+4rqZRloNu+TXvW3At1Jb4sxutlOBu3+wyxpxdE7ffw
Lf5bBuss+yWJP72w/rT411a7FTj7eMPMqFgfVC0g5mTeCoRmHCMW6/XBfJf8
6cuLK3CbklpY4NIH1YqBF4PWrMKqMFHPwrsPvIBjM+u3CqHvMj7LxvYB39ri
ie9Nq3DYhtYxldcHhmGrbtNzq9i/2qZzjrV9sDSma+wky4PWPirq3f6+Dw6L
/CVeNOJB61sDnlQP9MG7bzeijffwIM7Fw7y+U31gPNBv9M2fB5Xv32+auNQH
prcid6RH8CDpF2U9B4T6IcZWUOheAg/K/1zR6oPvB6NP0592pPCgutKgSzS5
ftB0LQxuyuVBsbkXBJ6t64cP5w79MH3BgxbaYpsvm/VD6Bhdh9HHg3T1Gwg1
Tv1QXkD33PqTB82LjG6Q8uiHP83yJjtYPMgy+fGkq28/nLAu9dfg40Wq54RM
K0/0g0Nx27NSGV6Uln/rZf25fpisl/ucpc6LLpstN6Vd7IdeAnOd9WbsPGue
PZTaD0R5orW1NS8iF45fFrvTD0EvRtzSXHjR3qnwo61F/XAoO5yjG8aLqIfq
GNxnWD2HW5WyZ3lRUWrH5I+mfmAOCP9sSeRFBxhOpVWt/fDyWb+A/HVepLDx
bSuzox/eeNSG/MrlRX/dRQd4u7F+nKRPZz3lRZZmAe/haz+E/z5r8buDF+EG
D/3cxO4HttOQ9L8RrJ+dgUsneQfgTc38nC+LFz30FBT2Fh8A3PxvQTkhPjQz
GLB2n9IAVEyUaDqu4UPvxStCerQH4HXUNtN+PT503vDC7gWjAUgZnx4d3cWH
PLP7snfZDYDkfrsFvxN8iHe7pvDAkQE4t+8qaX8sH1JOSLnE9BuA6+5bv/Bk
8aFtt3oOqkYOQDJ7X2JwOR+65kUln00cgN0pfzS/t/KhC099nvilD4CO6Ztk
KzofymXmpDo/HACHbdfmcv7yIeLFoCFO+QDcFdM03yrGj5LFn57pezkA/rXq
5Vl6/OjVHkGCPnEArI5nL4hZ8aOQS/pv7foHwGhs/SLNhR/xT0ZcF/w+AKH/
lLkXj/MjXUlIyWMNQCrz6yZaCj9yNi95+B/fIAgNvA8XK+RHlqaFWhWEQdDv
eXapuYEfmWjE+K6qDsIr+ayw1i5+ZMBOoCxvGoRDUer1DZP8iC1z/4C5JXZf
uqGrTUQAMWSGzv7ZMwjp5lP6HZsE0Ftzno4K70GQ3PflraCtABI27pPpDh0E
+bmIEZyLAFpwOoFLPT0IESa9HyYDBdC2UV8Tx4RBsKh8P/ghSgBd+egn0Xxl
ED4Rwy4bJAmg4j/y1X9uDEK966eK61cF0Et7DoeeOQgLsTlBYRkCaI/7TADh
ziBc9u89XpiL9eOS4J+UNwh8RwYeqjzG8svjgq4VDELfoa5xl+cCqPdPloNO
+SDIHunMbegQQAOZJf49dYMg4pDyMIssgIjU1JhzLwbBbdp68NKQALp+ffad
wZtByLZyuGP5WwCtr/bOOP5hEOZjKr//WhJA6gSPrqvEQaiuvbhcJC6I5rZn
56v2DcKmD8k3/1MRROeLNh9nMAfB333dwb/6gmgF35he/RPD78dUuZiNILIK
r/zF+DsIvrxPd3AdBZHrbX+XwJlBeKSbFm7gKoiki+iYjQ/CLzvDSv5jgkjQ
wChFWIAG1ZxBW845QeRZwplMxNHgiqNVBkoVRLFfp96pyNOAoekr5XRLEO0x
zTK/r0SDrd9JB2g5guim5eM7h1Vp8HunZTL9kSAaP8GW3adBgzbTJaukKkHk
XGuVKbKBBlGb9rKdWgRRl6nw+2ZDGniHKaiso2L98PK+iTCnQSz39pQaXRDR
ZLKou21osFt4alVlVBBFviX9NLKlAe7Bl6dOLEF06Bx9naQjDYrsYh5W8guh
lhN7cr1daPDAMT5AWlIImeZ4qXi40UB9WtH9r4wQKv+qHbnhCA3oUSkfzBWF
EFu5oNTEkwZZr7W/5aoKoRt5C3HvvWgw8HsbP1tLCCWaG4fb+tHAqvn8/hUj
IWTy0Op41HEafLp9xTvYRgg5e0ZddT5Jg41/v3xR3C+E3nJWCnWjMXw+b4jy
dBdC3UdirorH0uDErqAMjpcQYjZcstCIp4H0fJctN1gI8W04E2B3kQa9R1pk
cmOE0LbqItGHV2kg9rBkICNJCD3wvs+yukGDXTM5pbSrQmjp3s8b9zNosOXz
cEhxthDyEpZpSb5Dg1H/CrMbj4RQ+zVd6r88GuQJPQ7kKxVCob8j/8U/wPpp
TcaN/SeEOq4Xz94sxPAZoor1PRNCIlf835Ie08D0cBtn+JUQ4tSa+Qo+oYHm
P4GYgx1CqKHKh/xfFQ0Gf+5TC+gVQpb4f2m4ZzRwa4yQrxsWQrIKA9z6FzRY
/Pfb9B5LCF0gvFdxekuDmywFg99CwkjRMzluTycNXA2+5dIVsPgQ9303GePz
qWBkuZ4wOrF90zVhGg3GlR5o3NgpjNrp5fiBMRq8nL7kyD0sjLSThwsif2N6
+i/BwCBAGElIjdqPsWmg3zLF3n1KGFna3wteP4fhdTG5POy8MHrPPakQsESD
irDujaWpwqiAh7mPzTcEz9ex5HYXCKPsUyIhH8WHwL9zVM24XhjFOWs7PJUd
Ar/PmXzvWoXRNpnLQeHKQ3Ayfvl8w2dhtCdta0XR2iGgOc4bbBgRRj9Mo/GW
G4ZALMzw3/CcMBL+u29Ay2gINH2aZF1FRdCTM0YmQWZDUMK6MZMuK4IEH4l9
ErMegi2rm18dXSeCJGRZhut3DAFz4kNRio0IEnguo7bTaQgKs8/v/G+/CNL+
87Nhx6EhaMd56Sj4iaB2EyuRA0eHwCnz6Ib3p0RQQFrscWv/IbBfG8tbEieC
Tgd9dn5wbAgmqaMm5SkiiDakzT0ZNgRr+9c+WcoRQbbfj394EzUEl69tem5X
JILsvpIUw2Ow/kodat5UiqC1Yy37DeKGgKr07tyjBhFUukR5H58wBLmHz/P0
NIug+IrRI40Xh4BxTqXSvEsEhTP5U3yvDkFkIKnu6bAI2v8mZjgnfQh2axsG
f2eLILXCb+i/O0PgezdDmLQigh7Myms9zRuCTdc0rFzERVHSjyCNSwVDMGqJ
Z9CVRJF2tuGYcskQ2FbeMp7QEUVvHcXnGBXY/JJO2+4YiiLFGlr25+ohkM14
WbS0TRSdPD8U+6BmCNp0jgQxt4sig+D6V2/rh+CQmsj7rL2iaGmN2dsTjUNw
505r7KujokiDLzT1SvMQyJnyGfVFiqKO6TqdqA8Yno/ZN3/cFEXEn4a3x8lD
kCLdEJpXKIp+KvW4mg4Mwa/Nz+LXVIii6fNor/sQxte2eNpioyia2v38D3Fk
CNJHLx+eaBVFAZX3SmW/D8EJEUGaR6cooqe16Hb9GIK4o/XL9T2iaLDfpog1
OQQzL5u3EH+KIo66eNAwewi2DhfvuL4simrvgeaLhSHY/IhfLAYnhuQz3J+E
rw6BgPTseJi6GIry3ZNlKkSHBZ7bYkpbxdDFT82JP3F00Kjij/mzUwyxs/x5
TGXp0FAooNt8SAzJxblaSSnRQXrt1PdtfmJISdX4iqwqHczin8axIsWQjILd
oUlNOowE3F85mSSG8NQIHe4GOriGvHx8/KYYMpKYeBuhRwdj+TdN3/PFUJx/
cfQpIzq0JVc1WVSIoV2JP9M8t9KhzOPWr4J6MfRH31V60pwOisN+Wu2tYqh/
7uCTIBs60MIKfDM6xZB2klC9uC0dyn3M3u/tEUOhiS1SNXZ0oO6/q/fiuxjK
d9Cst9yN5T9/iLf7jxiS5rcvLtpHhzulB5az57Hztl/+jTvTQXvd6Z7fYuLo
QKy+sLg7Hfw8y78Kq4ojz21GangvOijNm0V4GIujuY6LB1QD6bDEcH973kIc
udnfbP90jA4tbSMjRxzEkdHb7uSaUDowv2+eE3IRR9d9A7cZhGN4aGf82OUp
jixerym8FonVO7dwY/GYOLpf9NnPLRrLr7K4OSpaHB1vFRAWjqODVukbjdRk
cVQWMnHKNoEOODmftvJMcfSQx+DSl2Q68AjXRD0tEkfMfdnjt67RwVnpWc2D
F+KoV0vUySqDDsrquFqbTnH0vDfuOSWbDla0y6woijh6DO0Jwfew+Q/+iudh
iKOq3jNm4vl0uD+3TUVjQhxVUktmBx7S4ZWIjuxfjjjqiEp9N1FIB6/khl38
/8SRsPPGL+HFdDj54nyzCI8Eunphz9xKCR2sQ/bcqxCTQGUpHaF7y+mgaqjy
flpOAjXEtvh8rqLDopnspKeGBOJ4vQ52rqFDRbRcoJ+xBHrQsInvxnM6FFVc
ClazkUCJOjz+Wi/p0O7iUjrmKIHm2Flbwl9jeokWHz+/TwLRG3so3W/osGzB
E/fZRQIVERlx697S4d36waR0Nwm07qPrxzstdJD33WpueFQCkUqJ8nve0eGC
cZlRYoAEUrcwz7jYRgdixPai5DAJ5L7l1MHfH+gw4yVbv3JaAsXqjvDGd9Jh
05LLNfE4CfSa3+Drvs90iEmor3qZKIGEdzLT+Lro0HfbOoh+WQLd+STXfINI
h4mwp8E/UzE8/Dk0TzIdtkpHaHCyJJAiTeT3Oyodzr3ZN6qej80/wzxo0kuH
LVHVnvRCCfQvdHbBpB/rr2stzaNCAm1foQa8HKSDjX0uf8tLCSR28If5TiYd
6p4/sEhsk0CZBw9LRX2lQ8qT6k9TXzD8IqSmpr7Rof6ofZBsnwQqN8k+lP+D
DiUZ293nhiSQ+Jnn21zHMTyb9o7+GJZAxxxt7sRN0CGXWVL867sECi+pa2VP
0qGrl0H3n5BAZw9eybX5RQf1xTUDqn8lUF51bszEbzq4jKXpPJuVQFVC63ap
sjD83u0+G7osgTT2axZIcTD+Ai4dleXHoYMzRzSfcemQl31uqUkYh7r94kPF
ZzA8BVJOiknikGZfhCZjlg7p8b6cVTkc2kpvbNiwQIf1f+TVr63FoS/sEYn8
f3Rg2XQ6NqzHocaIXz3ly3RozRKSPqWHQ/b9v3nvrmL554+sUTLGocC1jQKm
vAyIW+3NNdqGQ+zdZ8af8DFgmWvqm2mFQ4i5hAwEGOASe2X/5e04lD5832tE
kAEl0wGfS3fiUDs5yuuQMAPWE/49E9mHQyHaPR1DIgyo4jdQUnTFoadJGUs0
MQak+m33uuaJQ1rRU/HTEgwYGJeYLgjC8rf5/PksxYDNZs/mo0/iUMth+wOr
BAbEizXmh0XhkN6vRRQgw4B2A6NHnmdxSFCnSrVdlgFvel1wT8/j0Ed/WtOi
HAPMTs4WPUzEoYY77DWyCgy4Mce0lr6EQ/fca/PEFBkwsuBquiEFh8ItChN+
YPHzgrHy8us49NPIsHJEiQF6vk+Wz9/EIerEuy8sZaz/M/FuHbdwKOaDjY2m
CgOIsqHjHdk45PWRN3MOi4OcOlZo93BIrON+L0WVAbtaexwr83Go9XrW/pG1
DDhKidRFj3CoFG/J1FJnwL6S9RX2JTj06/gJ5WsaDOg6uXj8ViUOWdhof7Rb
x4Aku/tKLbU49PedQvW8FgO+fl2YyHmB4fvh5rZsbQY8uJ2n3NqM8XujVyxN
hwF0BcOEx204lD0YX7thEwMoes+d2z/ikD4nTnKXLgPEeNoNY4g49ETwgVC/
HgMYTSUHj3RjepCIddTbjM2jbG040odDc1tbkaYBA3pKHhRcHsKh/VbSpUGG
GB/eJWu8v+LQf9Uz15eMGODotkfn5wQO2XDMxfeZMsDhL0/r02kcctXE3d62
jQHRujpByUs4NH/CpeGgOaanrbme+XySKN/k8NicBQNSXnmn2IhKonNFgdEt
VgyYsZQWIElKImJbXLqNDTav75k1fAqSyNLmXXIEwvAixe/zUpVEn47EWK3b
zoDtuxrmVjUlkbSfBV/xDgaEstLZPPqSiBt57fo+BwasXTN1dHmrJOr2Lv7D
dWRAlPH4y3fWkijBa313824GlHuR6lV3SiJ/Sf7wbfsY4H/mNH/+IUl0uTf2
h7ALA9ING9xfBkqivO93k1ZcGXCrP+vM2ghJtPokwHPenQG7gW6iGiOJnjW0
Gl87woCTBgJ+rGRJFHtj0oFxlAEesbwVOzIlkTffD29nXwbkfR9WlM+RRNSo
QyaH/DF8B1eo8w8l0fFbZ7etCWSAqxkya3wiiRKJ7k0exzB+OTHsU9WSSHVk
qyb1OJaPWvGhuk4Sha55+2ZjCAM2JjlfxDVi5/eKJ10PZUDOc3LUQpMk4mXp
06+HYftx8ZnlmbeS6J38RvmTJzA8LrX5eL6XREpLQjVhJxkQ8vLhf1IdkmhL
qoOMVzgDe9+2GkZ8lkQaApvmY08xYLFghXmMLIkKXpEfvo5gwKvZ4LUJfZKI
c4H4a2cUti+fpefXMiRRb5+P+8xpBsx/SuQ0f5dEUl7fD45GY/rPf1FybEoS
fawlvck4i/UfJk/1ZEmijCOta0jnGGAfHSC1YU4SLfx5JHI5jgGSB6fuBPBJ
IaEHhVTXC9i+iZ5a9haRQmsPRBd0JzBAPgEJ+khJodUbHW+zkhjg/UqifEJJ
CjnfmwkxvsQA0Q/btWPXSSGl7wt9t64wANkeGJzcKIVEJZLcN11lwPQx4XAL
Uyl0dK47pOE6ht/GDVKOdlIoZu4Ovfwmpv/FAztHnKRQyctTw9szGfBuo/P3
WE8ptL1RT8/9NhYfmb0r6C+FPjgX3/mbzYC6nfv9xKKk0KWKg8PdOQyobu7u
YKVIobv6jf9GHmB+wM/HcyZPCk0XCvvcKmIA9Qa7e89TKTQpQtp/4wkDkt+x
bxe1SyGdrwdP0qoY4Msp1ioiSiFaiB/h338MYInfkAsalEJUKLx/uZYBhMpM
UcPvUujK1g4pyXoG6Ig88O78JYVywj7JSjdg+/Yn94vjrBT69HUue3cj1u8z
O9OyJQwP9Vu6HS8ZcNdZqOEYLx4dbeS7vqUJ469Py+QUPx69eFqdt+E1A77X
LiWyBPFo1ccyzuUNA4TMjEbFRPHoyfExZmszA37gpta+EcejocqpCN4WBhQf
33qiXhKPpjJnTvi2Yv793CvsmDQeaTOyR2XfM+Dh6TAvX3k8OlDacGWijQHH
ou/u9VDGI9s7JKU3H7B9DC3Ybq6GR5ffzETNf8TmG2jZNbwOj1qqCm0UP2Pv
STr1Y7ouHk2nbtmcQ2RAzJvF3FlDPDKlxq2KUzA95jV9V9uKR3D7bZlfNwP0
hT//PWGJR37nzla392J+VLhoa2WDR/G7FtxF+zE/PLfU4myLR3tOpqWFDWD7
mP8tT8wBj/rGdbuv0xgwKzpqqrsXj1o31b51YDDA9HlC5pQzHhHrQvIChxlQ
WmXb8vggHp3d/kg2b4QBbEv1MVN3PEI/JRwNRhnQlxXEXfHAI7lvyf30bwzw
SxjkJ3rjkejhvbVpY9h8fKnbhwPx6MoIY43ZOOZfx5/l6p3AI/EeSt2JKWz/
xlzf+0fh0Y49zdJafzC9yK8lDsTgkfv2yUU5Fqb/t+n9Fufx6NomC/YyG+sn
nWmpn4h9zzF0qedi+CbGyckm4xFB+N7yzDQWn06ZjbqMR83zTwOXZjD/FVKK
qLuKR3a/5NwC5hhwPVprB08ahveC2hfSPMa/RtSedzexflROJq0uYH6378Dd
igw8Oumx046yyADnuo9NWVlY/GRdMn6JAepTsfdt7+LRTNcQKl7GvhcmSZ7K
xyPfPvkg2iqmv4+6uCuP8Cjaz2pcgI8JOoJbFZSL8SgkSPdSKj8TZhv90/aW
4tHrHV2ysQJM+KHdrvm1DI9uH6gZyxRkwq0DG0q2V+HRX3AeWxFigvr7M2Hf
nuJRe1U4M0WECa8ORcXUP8P0Vx1xWFOMCden5S6JN+JRv82y/ow4E6iV2dWy
b/BouNgkjCDJhCSD3KlnrXjECi2cXJViwsPCTqnSNjyyLrAKsSAwwUmJby6y
A4+C/TJjA6WZ8KdK7fbpTjzKum4iZCHDhIYo/oXQz3ikVl2vIC7LhOnKIeLm
LjwKlDh04wMWSy5sejxAxPAJFxE/K4fVT/cYjSPjkfKHXksteSa4JIHpEyoe
VZ+mHBFTYMJE8VgFtwePHDrqzyz/Pxb91JTaj0cxjFQeKSUm4MbWVWvQ8Gi8
uE9RXZkJn6T/9Skw8Kg4xO23+xomkG+qL9uP4NFoD8WkVIUJhqKvze6OYvrT
tl/KUWWCdrz1KvqOR469W5t3rmVC5Nb7SR/G8EhmNljxJxYnDegU+//EI+mj
jPQMNSYY1bBxOyawfctYaTqozgS5owdZsVN4VPljhmuhwQT86qYT537jkX/Q
pSkxTSYYP1+W6vuLzeejdYR3HRMkVDbbKXDwSCLR9McUFpdeF9YLncajp1fK
XBlaTBDyjT5bNYvhL3H2Rcd6Jhz5zqpyWcCjt2OS5EFtJtgv8N/b8A+PTGgO
bfc2MIHB8IzesYzxL2rZGqnDhF07JRXZq3iU6jpknrIR4+Nim60gPwG1fyu9
8n4TE+IkVVXyhQjouqPpIVM9JhyK6F5sECeguPaMW2gzEyr6DgzM4gmoWp35
5IghE6LKvqYMKBBQ7sXXzgomTAjvO5T2RY2Afgp+7rfZyoQUnWqfZxsISM2p
6IaXOVY//4hpkD4BpdXpzeRZMsFuwqwo3JiANJKc72VbM2HJQ9U1YhsBraKV
99eBCW7dohubbQjIkVns478d60/sUnm+IwEd/1BYv8WBCe/oVZ0n9hPQg2tT
Vv2OTDg54LL8xZWAEgnq6eO7MT3ICda8OEJAy9wlu897mZAbZhQ94kNAQq7d
0tr7meDsasT9G0RADxMaNkW7YHz7ap7HRxDQjPtzr72HmJCacjX97wVsnoKE
hSseTFj7L99R4RoBPTlWlnPAG9NXgcXZbTcI6FWW63q6Dzb/U6/mNRkEVOaj
EfHXlwl9g7e3zWQRUJTdq61e/hhewpfrlu8QkHxU0lB8ABMsmj4b5eQQ0BVv
J6/TgUzwCJqk/MsjICUiYfuhICbkHXd8LfEQm5fBqI85ht1vcFjPLiQg2fuH
T4wdZ4LWzZuq1cUEVGwalv4jmAm7bwQsLD4hoMv/mbWohDLBIUcMZVQRUJXR
htrOMEw/PzM37agjIJ8nt1yZJ5nwurC5YKGRgM45NSruj2CC5smYZ+ubCejE
63DG5iiM749WSXUtBHS//9qo8mkm1KT2v/VvI6CWJLvqU2eYcFO5uK3nIwHd
i/eOFo1hwvcnfXmBX7DzXTE4l7NMuMzxuU+iEJDgWLTi9lgmEJfSVBZ6COjL
zdDzAXGY/sI85/hpBBSTmTNiEI/5Vf7Bo4HDBMTW/nVIKYEJW1J/OVuOEhBV
wgrWJDKhyy1u56kxAkrQ6CyzTmJCu/vjk+NTBITLKltMScbq+9pEEacJ6Lxf
rHLZFSb4HTIVZy8S0OLme0rEqxjeSoyWsFUC6iXAGe/r2L7sX++9wC+NChiP
vadTsfxzwzeyJKWRH3VStzAd87N9gi+/K0ojj4THbIMsJpgV/dZdu04a0b5W
z9bcYcKY4ZPJU5ukUbIa7o9BDnZ+QaVD11Qa2Rep3buQz4SXvabhjZbSKKry
o73YQ8xv1xyPO2InjUxPNX1jPcL0Zj3+o2+vNPrsqc3z8TETVpTnLuFcpNGn
fxtuGpRgfJ7err7HTRqdXvrv9u9SJtRrvAsR8ZRGiTIZXYllTIjp3d1U7SON
hAIiREUrmEAYNX5TEyiNfJ46KNRUYvtj59P/PEQa5eqFFLlVY/7XwuE1PCWN
tL8K79N8yoTkuKrYtChp5Po73sOyhgksK6Wgf9HSaLNOeqpHLbavX+xmlmKl
kcxVu4yyOibIy7i+Go6XRm8Up57lPGPC1hLljzsuSiNp34uHBJ8zoXGBnmFw
RRrdvxBusLsB869DI48Tr0sj+hSz/L8XTHiTu4KXTJdGXobbXLVfYvz1SO2+
c1saXVjD2/3rFRP2dvoapN+XRmUTtlGf32D+L5+5rrVEGu0ItPzQ2MKEYJeL
6fU10qjQ+vYrgzYm0ArNQ1SapJH7mbWnozuYEP1wjWzsB2m0bmdHKt9nDI/P
u18qUbB5csVz9hMxPgym/pAGpdF0u941HgqGd9fEZd9hjD/rDT0NVMyfH08S
Hb9JIzPzS+8mupnwu+e0WOlPaWQZSG+HXuw9Y0ZvfDUljdSN9xcn9DGBr8H4
0z+WNJJK8r+oOIDxWeBps2dOGrUcCufw0ZgwOjeypL6M8a0x9fXDEBPKdqvM
FwjIoNdX6btEmdh7vqd1iE9CBjFzxHrRCBMUN1p2HZeWQVuA32bTKHZfRFqS
pCiDym84ZUl/Z4JIzNv6v8oyCFFVwuuxePumE30Ja2XQrdrL79+NYf6hcjvv
wjoZpLFm3tb6J4bfzaPli9oySH8odNpunAn7GMYm0Rtl0Eudgzw8E5g+Auau
PtGVQQWf16WVYLF94an9z/Rl0BTZ4iZMYvtnphS+zlAG1e+r6ZnF4i8+vd/V
TGTQ2bmSxb4pJujjzkWMbpNB4bbe8Za/sf6vnxM+YCmDvH4/s7D6g+FzYR/p
j40Mun1B5NGuv0xY/hFMItjKIIfiLQ3jWFz43VLFeYcMmpCQvZbBYgInYZNk
qIMMMplp64pmM+Fcqey91F0yyNlPJNuLw4TFw3V28ntlkEsBmavExd6D4v2K
V5xkENuypqkLix9O+ybVu8igw+HFrxqnmUD/KBWZ5Ibh1cFDUZplwoX+kzaK
HjKodNm3SmMOu5+zS17HWwalIL4De+aZULXp6ECOvwza7avwO2OBCc3uZx+3
BcmgNWlC1mcXMT1/WHeqKQybd4Wus3EJ06tOvexwFDZPeVz55hUmpJ+TlnQ4
K4O+rBN4dWKVCRHbXSy14mTQBdP8i5Y8w3DkYDA8viCDaFUimtt4h6HzlvJ+
yUsyaNAzR+U13zCE95xcrrsqg9Sm7ieLCAxD5v2Ac4/SZNCmNq9VdcFhaKDc
tu1Jl0Hne9ebCwoNQ0xMBufnLRnUfaNLbQSLewPFFnbek0FOh7Lue4kMw2xa
ym7dBzLo65M1uiuiwyDwO9u/t0QGFR+2LPKVGIbRnMVnK1Uy6JubNsdNchgO
iDvL1DyTQYTJh+mb8MOQEA/N+1/JIDnzszlzhGFwmHG3PdEig+IrUyILZIbh
yrF22pEPMshcBGdgLjcMITcJf052yaDGEtEidYVhcC1vnHnfLYOuM884dSsO
w9bSwAzRARlk4MSTMKc0DGaRDXQ0LIM8Ps1GfVszDEGdZy9v/oHVS+j8+VJ1
GPba/qs3mpRBRy42XOlcOwyppazZwV8yaPVZvdQFtWF4ib9m+N9fGZRufW7c
Un0Ydo1qOT3iyKDR5gdOfBrDYF1mIvNjRgZJVHYfZGJxyAMnM6kFGTSAoiPr
NIfheWDsbpkljL+J1Pj4dcPwR2pgnrsqg1Rn/VsTtYah3nhCZAe/LNr27m3q
0fXDkHV0Y5ubiCxyy0m79J/2MES3bbbfjZNFkW2junMbhmEgRY9nGS+L6L6N
uP+RcOfhUH9dAMAje5ZiZsxuxix2FS2UzAmpKFEhS5EiSyRFKqJC1ixRkvyi
FJIKFRWpEKWSIgqjECqSLZG8p+f98/PMzPfee+4553uvp6fv6kKB3UTJgjsE
Atwxb2r4pCEUuKmfX2hMIcDb7DOvZLWEgmipdqWtDAJwvQghFG2h4OrWPk45
iwC7aEOmk+ivDhaBkRwCuMWlJt/UEQq4P3IfFPEIMF10dtRIVyiI/6Ix9kiN
ANUecRLVaNZuk9SjmgRgyl12CFooFHyRL3X31SHArEWTzrJF+Hy/G6HZiwig
VvXyhMRiocDCr3JbsT4BSOXXY16iF0j8HVy5nADz3stWFethvonGHBSuIMDv
mRHZLH2hQFYzqkzHmACL7bjuB5YIBR/W57LzVhPghZSm/5alQoH2rnXDpWYE
yL9tFKu8TCh47vRVk72WAN2CJYol6OLARxPz1hPgYELqX53l6KA3SgcsCeDZ
e7bjGTpwx4dcCysCtL37lR5qIBTobfKWPWNDAI82Cn+ToVDgnWFg4LKVAFv1
73mLrBAKLoXcdqm1w/kKLlpnoKeWaTopOxAg6eG24zorMb5L99YudCLAmMA0
tBhtdc/hhs52AqxbXle1yEgokMgB0dEdBEgvu919CX3CISvJcycBvvTp+xmt
wvFfywgsdhNA58WM5wg65ZysXuIeAkicGI+oMsZ8lrBbWeRDgM+bG58/FQgF
Ome8vTP3EyDB7WHT8tVCgaqt902fQwQIT+5ccNkE69Ve6RzvGAGmqjiq5mZC
wQo3zaigkwR4o2BtkLRGKAg1c+fXnCIAh39mMMMcv398XLs2FvPlllzi1rW4
34t7w0sSMP7OV9jS64SCnvP/LVmeTADK9q9xn9C3piq76GkE8FU1kHizXijY
tj3st8h53P/vFi2PLIQCcbMZg85MAkT9HRAttMR8DZZf7p9NAMexydEnG4QC
M2fn2KO5BNi9S3pR+UZcf/G8lot5BNgX+yHzkBWOv88y7vl1ApjK6WoabPrX
r9JDFW4RwDLOM3mFtVBADTVyfnyXABVbeZGvbISChy9papEVmA9PprnuW4QC
IkmwQv8xAW5LFN9avVUoCFea1Cl9ivn+K+7IezR3tvVM+zMCPPv78vFrW6Hg
sa0zV6KBAPWOSuXP7IQCRiix834jAYyo5TuE9hjfqdS+r+8IYJ2x49z7bUJB
5ZGQNbrvCbBgNvTYdgehIGJPD/tpKwGabl+buI/2qqv/uP4DAXIWaCgTHYUC
eUW7oemPBICDn1QOo40d7qQ+7iCAUGdr8ie0x6o1V3W6CFB89qOavxP2s8Gf
a0e7CRAU9/DNRmeszyN220O/EkBONWCmYTvWB+NEqPUwAWSDypTZLkLBWd7B
oLtjBLhkN6jJdhUKMthtG7ZMEiCrt118FH0j85tPzTQBIibV6+/vFArois4R
XbMYb/dDVnlu2P9ebm9YJ04EqWMj5l27hAIp7btNy+SIABeuyOW5CwVvBq3l
dBcQ4VOdm2Gch1AwbvhtQYASEXpHOXWye4QC8t5zY7NEIvgF91zOQge7dc0Q
qETgPaBZn/LE/r9p5fl5TCJQ1VyLPb2EggTHddsr2UQIF6OcXuGN+X29QeQA
lwhv09NfvUWv4qjfXaZOhMkfcVfyfISCnE1JFmYLibAyLn3RMl+hQO71+a3L
lxFhiDRj/9BPKNjocW9shRERivTyH8v6CwXf07sLvgMR6tbTYxX3CwVMTvCU
qTkRHn1elrAyQChQnPuEP2BBhG9fHnBWHRAKesfNZjZYE+FLxZDOnoP4e4lx
1vqtRJDcZPLTJBD7B4M/0WFHhHHDk9Jv0JNRnQ+pDkS40F8kuSFIKOiQN5hX
5ESEnPWGXm1oR7aMAWEHEYwSrw46HxIKCp7vClBwJcJE8qRnPfr5DgW7vzuJ
0Br1VlU/WCggbVl+T9adCGZ9C+d9QK8w4a5b60UE7ftTJ6sO4/is/onZvUSg
eG/+FHtEKDC5Sw35GIBW0o2tO4r5mTimefsQEdqrtgy/DMF4aOscHj9KhMdX
omVKQ4UC35SY5hdhOL+VtBMnjgkFTYprJ6tOEuH3++DfdmG43+XRwXejiVCx
1izaNRznG6R08VMiEdQae8jC41gP+kWxc85hvKhqaQ4nsd9d8ymi/EeEvJo/
mhKR2D8M4hXjrxLhytNf8aejsL/eiw05f4MIEVqvLs2JFgo0/9yeWl5MhIfU
X8tH0MmDaze6lxJhodSijl0x2E+LgjcH3iOCtGVj2NxYfH4m/wT3ARECmCo6
T9FfG/eVSFQR4Zdt76WqOMyf1BUPg2uI4Nxf5P0hHvNnT2mF9gsiCAq8M+ec
Fgr+Jntav2vEfLFR3s5JxPlo5WiVvCOCp2lV6wC6uJVPTHhPBM3At8+OJgkF
T+7ttXnURoSf+nclv6ND+0+VWLcTYetzC8q+ZKFAdNpZK7+TCC9uGFz7gi67
l7YqoYsIQVojX81ThAJekslYw2cirNh8bU05ereHS+HxXiJssSovNDmD55tt
mnMK+olQMCNX+RldlD/heuo7EU46kc2vpmJ8a18LxoaJoJRy6nJkGr4vax6J
FowSYSprB1/+LK43KOPdwDgRGI2BlmHooN0hM/2TWH9WtEbiOaGghtuaGPaH
CA5R4qX1aOJTLdH6WSJ8tVyk5ZcuFAQYHk/6I0oC7w/tCvLnhYKW0myrMgkS
vBJ0qNeh9WT7GdtkSLBpQG9/SIZQ0KYaGa8hR4K0HTo7pC4IBYOytxu+zSdB
SmbOtSfo1PhbXlwSCfzenHpSnYn1anCboUgngVSl9kD/RYxXs2SnuCoJVmU/
WSX3H74/G2SlT2iQ4MAhRtDRS0JBRS9x3cmFJDjiY8G9lC0U+C/8UZOrTwKD
X4PKXjl4/ir6MSC1nASnJxV3yF0WCi7Of19hb0gClbgQRii6t1/Z1NiIBLFJ
Y9ukr2A+q4zr9RqT4N3kfzti0I5wQZe9mgTDEk5K4+iWmqWxbFMSMHfR/W1z
hQK+342uF2tIoO9Ydb4ZvaYt6WH9OhIcpp8ycL8qFOxc0UG4Z0mCZ+t0TvxE
T8mExMdbkaCtfph6+BrW19wEwyZrEmyW4FzvRZ/w6/5gvoUEX21vtTjm4Xno
5reAXFsSZNQ6PXqBPv/ix8IuexJIbBRvXZqP9b2WWCjvSIJkyz3RF9HrPb8/
m3EiQQ6f7/AbvdrPJ5S7gwRzVPSdXAowfgO/Eta6kuDuGXJyNdrTgC9z1I0E
ATubbmpfx3z4+/H15d0kUAq8WpKCtr68YvdFDxKYXGvv/YEudsq9mOZJAsVr
Vys2FAoFMbspv8e8SVCYGb7vIfrxSdX7Vb4k2L0Pi/cGnu9Dbc5n+ON4Xh63
atAbun+evXqQBNJyC01OFmE/F9c0lzmM4zN3uVnfFAqyq230rUNJQJ6pOat8
C99PwwXj/cdJ4Hpd0X4QfaewcrfmKRKUml2S/XRbKOh8krg/JZYE5XEN/x0r
xveJVIE1+zQJFh2r6VYtwfppe6X6LpkEenZ561+iB1ccf0c5S4IHoc8Lk0sx
vukd13wySLBCjfPE/g7+PuFe0fRFEuwV2fx0Cq3+tZPVdQnnw1VuP3YX37c5
emc+XyGBxtSa/5beEwqGvQukvuSTIMp3UxKlDM+XYzOOxUUk+Jh8jjaKlssx
/Li/hATO4X0N9eVCwd7ryQs+3iMBdbXzw6T7QkE7b1v55QckkNnuM7PiAfaX
s9eU3laRQNTjZzHnId6nlJNqNlWTwPQTqekRuvfvn60X6kmQSCjfWFiB74+R
Aau5jSQYd7EPrK8UCgpPLtWltJDAPi945/tHGL9Z9m3PDyS4fWKX2Nkq7N8X
394/0kmC69FJF9Y/xvvCgXZ2YTeub/CKiu4ToaB2lnpesR/3z1Fn5Q90cQx3
R/U3EiwntswkPRUK8tPVFr38QYKL50irV1djvd6t+0oYxfh9PWHWiLaYpucx
J0hQJZocsrUG+42SP+X4FM53iUK/Yi2eR3TH4mJElSHk00iC3zOMv/ICsfVy
yjDX3nblqnrs7z43anSoytAjJnZm9wuh4B2sNRRXV4aSGKe/N19if/r8bWKT
vjLomr15HfdaKDCM911zzUgZ/qSGsZXe4HnvhWvexbXKYBe2tPJjE/YvpWW7
I62VoZ07nrbhnVAQFSn2dq6DMkSKTuUXNOP9xvmgRrerMsDh95cGW/B8pXk0
0c5DGTql3PY0vMf70E/pk4e9lUFyZ4NIYKtQYGTpnjwaoAwdPk7rX7YJBbaS
vaq7jihDecGGod8fhII5e1NPmh9Xhpnnx60U2nG9ixdtaY9SBuK7Ep8f6KvP
yRd04pRhcpenbmYH9oPEgslNicpg5vBk2epOPI8Oun2qTFUGzZBTJylC4f//
v7cMZdgWnLpRpgvP88+9D9TnKMNN/pjfmk9CwcCb+N9mhfj7o3923P+M+UO9
Kttcpgx8I5OduT24P/n1nj8fK4OW3R4LyS8YD6eN5refK8PvPT0HHPrwPHN0
+Ht0szIs61BcNNWP94EI74rKTmWwTNmx0PErnr9isxz6epXhBif1hPc3fL8z
vM8p/VQGEVc/+wWD+P55wUlWmlKGuqj5c3YPYb4PWngyRclgv7ZMK/kHvv8T
D3x4J0WG/f0jYXHDQsGf3R9tTymQ4YG9gVXETzxvvBam84lk2DZSsn/rCPbT
noX/CahksPmjc37+KNbvPLHri1XIsPipy8Xa0X/3i7b3Z7lkeHxyUUb8GPaT
Jeseb1Enw/S0vg9xHPO54aPxa20yWF1YQy1Hb98XIXdhMRlGJ+Lq9kwIBWP2
olKXl5Hh4WuNCOYvfD9k5Qa6rySD9cLFfc/RAV9e1J8RkOH8HI2xnZN4Hli/
9pmJKRk+3nzx8As6ZaDnpas5Ger64nrsfuP6Ph/LnlhHhowPyY9L0DMfnk1m
WJLhxsj8CMUprMclrRUdVmSQdliw9hTa5sD8w76byVAcVX9aYhrP/6OTRap2
ZJCwsW2IRetMDkvrOZJhrcSetbQ/QsH+jFMLzm0nw55EyXdn0OF+AkvGLjKI
ij8+YT+D96fhp0cH95BhjFd3XOQvvt8eP/Aa8iHDF4uc06fRLAq3o2EfGSLl
J0+TZrF+zuzY+PcgGdSVPl5uQH8d/pyw+wgZdgRcuW02p0swtpn5qiOMDO8b
9BWvoGOmp/piI8hAdcq1GUdrOsq6PokhQ5e7TekmkS7B541OISsSMd42N3SK
0NtZS57tTCUDiZA7JCHaJcjUEd1RfZ4M59Lne+xCv1OnqrllkcHow2f/YrRG
Y3045zLG78Hu3LlzuwQiVa6sxmu4vqmI1VvQFVNfV10pJMOZj4VrctEB1mrB
j2+RIYzAnvqKjjSbaS65Q4bt5i0pxmJdgiBmbdnl+xjflb01yWiS/+5tVx6R
gWns3tKLdnzR72/ylAxqHXBUVbxLsEGy4tniZ2R4IZjauBvttemO7fPnZGg9
pL71Elrm85s5Fa/IoKGZQvqMZuSUPPNqIkPR7/laKhJdgixu2XefFjIs27Yv
dye69JP1k6dtZGCo3Pidjm6+plHxrIMMxG8XLT+iO04cH5P6TAY9lyYPtmSX
wLWjIWjkCxlS8t3YAejqtmadOd/JYGYgO1qNzli2JUZkhAw/h9/Iq0nh+N+U
Nb7+IkO9roPpKXTkrl0bdv8lg5B403EYXROe5XFMjAI3DUtEtkh3CVQVtA7X
yVDguSTPtgw98+fVzogFFPD39NrLlekS5CjyHjOpFLgXfP7rDbQ7uz0lnkWB
skzBCsK8LoGzYF/FHS4FRtbcMLZDrwksteNrUUBN/zrjIbp1A+WMgx4FWu9u
PKMj2yUQ77XdOmtIgc4ySmouWtFlwY81phRg8aX9l8l1CUKfsRS/bKSAwdIT
+z+in+sac0gOFKD/saBHy3cJeA85pX92U6DcZn+asUKXwOQkHFjjSwGtyouf
HqKdgxIMUvZTgHvxh/5fdOSZX7QlQRTY7PzO3Wx+l+CgGLXk0REKGJ6gkGPQ
G7vbp53CKDBWFpr+Cm0t0fRgSQQFNKtcgpQX4P6rFC8MiqVArE7h8kD0529y
3z1TKND21Kb9Gzpka+2yzkwKuN9+rH5KEeMnGienlkeBzI79JTpKXYIr7yQT
KosoUKt79Nhp9CAxkygswfn+qDrVhr56oDpv3gMK3L6momFC6BLceLS3OfYp
Bdbd3hxdgd7oze/rqKfARF3UFJnYJXioNPON/4oCxVodVXZonb5gzuRbCqx2
LnApQB/LpIdubMfxO6eL2CTcD89n9yp7cL9KBqfOo/9G7q36+o0Cy54Vlc+i
Q49a/jIZocA0M2iXg3KX4PTysYPhExSoK/7LTkNbRcWbDE/ifnY99biHPuaQ
RP9vGvMjYymhA82dM3Nm9i+Ot5ziI0vuEhBXvebsE6PCr8sFftvQodf83prJ
UCFlV/PTfPT62pNJl+ZTYeL4AWVRSpfgt8/3n7UkKgidTxvYo+/nqD54SqMC
TyxfJhPt+OjeUDSLChGpy292oHcoXFvTwaXC0dpYGoXaJfjOJcUMqlPB0jr9
kTW6abQzvFebCmZPnX5FoS+dunl34SIqFPoXvylB1xRzl33Up0LbXNPHvegu
5wtmj5bj/CSc0qg0rGfdKLlDK6kguzZtbAM6PWD0uaWACqonqh+Fo49/czkf
YUoFnbknisvR9ctWEqlrqTDr+2loAH130+WLpy2oIEJmbSPTuwQRyo9VPayo
UPer7L0lmh29q+aRDRUudR/JC0bbntHoUbGlwoFGifu5aDMHN+HUNipUD0tR
2tDerKbDb5ypcNNUwJZlYL844nztrSuu93yU1Wq0TDlxr7c7FSS/UKWPoe/k
a/QmelFBOf1uTSl6+PMXerQvFbK0FeUH0DuUaD8N91Nhn75rJoXZJfAVm9Ng
H0iFiuOvz21Cl4q0hksdpsLkdGJXGFqWeTX0QCgVHja8jC9HR3vJbH94nAp6
Y/u2/UTXj747Kh9FhZjyI4c1VLoE6oPxq2ixVBhMix7fjo74ST39NIEK74YO
rk5Ae7d1W59IosJLWt2tW2hqRM5qu1SMT4yX6Ge0b61S9P5zVPhJvT4mzcL+
FlDmuSODCvdsh44vRKd8y+IkXqSCnKfk7m3/PPsq/dAlKrwXTTwXip46OTVx
/TIVyHLSEVfRn/ItmryvUWHHsTmrW9C2z+5bF1ynQux5vrksu0twK/P+Uctb
+Pnd1Flz9N4td8c+3KFCyN23WxLQBTYx5ygPcL/bqgNfo4+86Ll/pIoKhobp
JCVVHK8g3O9gDRWucpYftEFrq9jct39OhRXeyxNOo5vT+0aVX1OBtd2/th6t
Z136dts7Ksj/nVGax8H3J7/s2rk2KkivjCVtQM/xl1p4WYjrd+qrPovOPfEm
7FsvFULfyjF60Gu6AtnrB6nwxb9kvzEX98dD9uqBUSosN1GqjUFLZJe/J/ym
wjlRwuZX6IvN76d+zFLh9u+Vx9m8LoGbm69BlgQN/CNsIQBdKyXxWVyOBorr
yDsfoS+uttaQVKLBb0dJf0k+1su2SBtDCg0ECZ2nbNBcx7aP5Uy04wL6GfTU
vgd2Z1Vp8Ct1t+hj9EaZ0vscNRpssXv5dwIdfdthwFybBnNM31bpq2H/rjg0
uHQxDf6+cv3hi77bd/ltwjIarG2aelqIbjeddVQ2okGy3afCQTSlbtZhZjUN
OPan0vXUcb89Gy5MrqWB8tNQCEa7lX1IuLOBBm5iH01uohspnyJ32NBASirE
oBct49HTkWtLg7z9eZdJGti/2WGB1Q40qFhpTDNHuycZxXhup4H1hoRf+9C5
ozNFt11pMMPbdz3t3/flvjezdtOAnLluTgV6aXn9Q9IeGryKe9HaiV6XNdOp
7UODhaHJwXKaXYLyFdc09uyjgbf1h3Or0A+fe9okHaBBddP693vRVWYFKSaH
aCAjWlp2Fp37c+fNjqM0MDzDqH+OviNta1QZRgNZ8uvjE+g1fcaLz5+kwf0w
hW62Fsarvqv96ykahNtvctmMTjObntoUTwOFiJqzJ9GUMi97QjIN6oQ7m8vQ
RWWlP1PSaHDt2LK+r+jYRfPkr5+nQcu8AQ+yNvbL7Wn9kRdpcMtpCc8UTS7/
ZFdziQZ3rl8n7kEXbpwrLXKFBlMe0y9i0RefBTi/v0aDu+cSyHfQbiERbZGF
NHh+bkVqP3p4cOmD4Vs0SJHcKUXR6RIsZhf2se7QoMRYpN0c3d9pF5Nejvl3
ui/rELqNkx+/oZIGarfrmwrQlPrJtqdPaKBf42vzER3s0ZHxupYG9oH6PEnd
LsH88NgDe5/TYGX7l8W66OM+Py/Jv6JB2bpLu2zRIdmPbK68ocHobu+po2g5
lV9/Gc00ENonWmejdVuYZ8itNMhxWGXyGJ2RqC08/pEGr09vqe399/2Qwu59
nTSYrdtLEF/YJWBpbVGb7qKBT2OEAQtdv/VtnGs3DSY9PB4Zou8s+iV1t5cG
F37tSd2M/r5FwWKyjwaBG8tSvdF6ftfmKn6lwbjGZmE4mret9qXpd6wvfRXV
dPSXouuMLUM0uLf49vANtLEc9xxtmAZxdxQaqtCN7R5v5o3QYP+UnXkz2ko6
QTRglAbRx5pletCRh+s7W8ZosGPb0sqRf8//SV0VMoH11sAjiS3Cfr7//AeV
SRosKQ22J6LLZkuTRKZocDFtD1sD3VJuffbGNMZbfXnxCnSIcVLH8RkaiDtJ
925EKz5SemYyS4OwNV/WuqIDSzjTxiJ0KKbcVwxER6Td9F8+lw6epYdvxaAv
ndnYrCxOB5uTQxsuor94LdV1laTDe9uzrDtoXblLBrek6SBjk2j0Ep3w2jGh
fh4dVi9ZrtyN9hvqq7OVp0N3KaTNoOXuS4UoLaDDq4DHMtTF+H44EBF9XYkO
yZ7fhpagNWaNpFxIdCj17uuxRn/ueXfKiUIHL8P3j/ehiQujPkTS6TA956VX
Enpb3O85h1TokJ8WfrcInWGeFu+sSoflzeJhDWjRlSPp7jw67O41vvYNHSHd
YnFMnQ6y03075+l1CZKF93SHteiwpb/9oi5aMz5Jd0wXx4s7sGcjOiNuVur2
YjpsN56zyQuto5z37NMSOqw/0F4Tg94QGuW02IAOF8UyPK6jZ6LVJNVX0uGL
3ZWAevTtPTrvfYzpoDT2OfQrOjdvMvXyajp8I9+aldHvEli8u9HwYg0dshP9
+pegKUtCV79aTwcNg2yj7WjVX8xAeSs6iOVa95xC73XsCNTeTAe51a9ot9Ef
av/L22tHh/96nyd+RA+8Yv3+6EiHLt/4Sskl2E+Y3fNrdtCBxIzM1EWr5vmI
Ud3o0Prged4mtEz1deEOdzrcye8T90dX7PrDlfWig/IlP8dUdExW1oPwvXS4
NA2+d9HpHT2vIvwxXlaJPzvQx6o+jzEP0qGo+O8mkaXYH5WXf/99iA5/WSEk
NTSxZ7XzkhA63LzC22uNvnrXZUlfGB3qf0eEHUTLQPBY/Ek6aAcaz0lHW6mF
62mdogPh927eA7Ro77XNbrF0mH/f0+YDeqaux6g4gQ5so+s7ptCD9y9FPUim
g8rBoW3sZfh+nz8vXu0sHQIvHRmxRBdl5Ui7Z9Ah1E27+CDaKnghkZVFB6rz
f4fS0cOSpl93Z9Phs0buo3vozT4jweGX6TAWSux+gabLfKq3zaVDbJy7Wwfa
Qmh8SuIaHfaoBIQPovcnUe3D8ulQM6QwT3w53u8ktDJMCzHf961wVEFfvPn3
YN5NOlSu4KYI0A9ZakNXS+igLzPP0x0dcTbUP/seHY5cvCUah163JGfR7AM6
7Jxx0S1FtyboHXCvwvz7OZPYgU7OPHP7bjUdwmrMFCUM8H7xXoU9U4fxH1lB
0kUbuHA97V/SwT738H079P1yJwnHN3SgUeKIIehYdr3Z9Dvc38H3TRfRjFf1
h71a6eDyIDi3Ar1+bEv6q490eCtrQOhAzyzkLLYUYnwemG+YMfh3nlHMJnVj
/c7fZcEyxPscyyrl4Bc6bPuWay5Af+1m7XP4SocTZ6ukd6Et7jTP0R+ig0PA
Zpso9OfWlao6o3TwkVNuLEHz5xsJX0xiPijRpPrQ5+duKa/7Swfx8T8+jBVd
Ao9bZnVPxBlAjoxPckbX2QbN85NjwJlCi5vZ6ChdU7MSRQZoB6yf+wZt7XBj
PSgzQEyfXf0bXTp7Z607nQGrlsTfUVuJjp1fGq3KgKgUH8cd6JgW7ZoaDQac
3akWn4V+LGNYenERA1xF1Wc/oEeazWxFDRjQr/ZImm6E990jEsJqYwZYa7qv
sUeHMyciGGsYcDkjovA0WqLsKEHakgFj0YE6T9A7G3x1HKwZUDS5EYbRL4/8
DN5ry4CdKW2q9FWYb4WGyYccGfB5T0jWWnSosfWTDy4MsDp6dSgQ/ea4g4u2
OwPm7raIuIy+0fTnxJg3A96njw68QzeEVUe17WPAFs3ujL/o70ZebvoHGTBg
nZfMMe4SjI2XL4oLZsAth3cu69CvSL8rzocy4MrlcMaBf58/uuyac4IBi4v5
sRfRxzf/Nk+KYkDc550plehtlOUhubEMkOrUetOFXuWqR2o4zQCnIMWEuQLc
z5UHJNNTMH7KBOCgewLmsF6lMUCr21XUGF3avUiYms6Ad/saqLZojTmtJO4F
BqidJGz3Rscwy0s9LzJgN5WvE4pWvLi0I/Y/BszxLm47jR6scX68ORvXf9nu
7EU0kXTcTvwyA7rLZP+7jpaxGFQZvMIARlew0wN0fvKhCsY1BnTdVNz7Eh2b
BO835DOgVcXVW4jO3fU1mlfIgM6zh5sn0JFfBOZ+NxmQR7Z/tQC6BEvWTldf
LWZAKmHXUm20V16AHe0urjdZ9+g69Lrbs5+OlTPgmcmI2m703WjzkPqH//Lt
z/QxdPM7vmzTIwYEM/YVnEM3Obww8n/CgCX+BUOFaFXTxaP11Qw4mVM3+wj9
MvdKrfgzzF/ZQ+Qm9OCGkRXUegY8iXv//TO6RfzQ5KYXDPBZrVA/hraummVX
vWSAun1FkNRqjOfg95trGxmwSPdnGx1d7Leh7+BbBoTdr/Jahk77jy3T2IL7
v8Zshw16/ZUeGe0PDCgJ/m/DXjR30FxltIMBg/W1kbHojsvZVX2fGGAjdoVS
gPbsV2+q6mWAwhrlqjp0BeuGWtAAA5yDnhl+QT+J0PYQfsf94RWtEzHB+5/g
D3njMAM8TXx96eg/NdL//RhlgOXeBzxDdHn+tRukSQbov7n22QHtf5+0mvuH
AfOCnzw9jHbrZExmzmGCVNO7tkw0Y9k8VyMxJjTcVl9Wji7rvpVnLsmEJxNx
vxrRVaNFbKl5TBjcPrp6CB1p2p6gosCETwphZHlT7L/034QeJXzeAQuqPvpK
0MomSzITvGO1ltqicz56+c/QmDDxakvFfnS779OM7SwmKFHHAs+gdeBE8Wku
E3Lsa2+WoE8cLSiep86EdT7aAa/Qi1c5N27UYsLFu5m7+9CLvil0ei5kQmOS
81MJsy7BhOhsY4s+Ex4fiIpSR7+cSJEzXs4Efe8oTxN0wC+/RZormLB6j3r6
NnSXVNCPwVVMOFbWwAxEbw099HTPaiaQwmL3JKKrVrtcemLGBPe3p8rz0KKB
nwTJ65hw6uc2jxr03YPm8GsDExxv/nfgC/oDSbz6gjUTNq6XfiqyBuMznX5Q
fysTlmstukJHrxExCOHbM2HJ064CPbTbW7nKQ45MyPNT9LBEm1n36C3bwQSL
1Hmr96CnVkteObeTCRqekk7h6GaVrnMZ7kwQF5gRstDuLRtPsbyYwL08yipD
pzVO9V3fi/MTC1/XhL7yYfrzo31M+NJCHOtHaxrZnWEfYEJoo1ejiDnmE2du
y6JDTPjvaHG6CjrXIat94ggTNl+bXL4SrZFEC6o9xoRXWxTk7dHLPlPvup9g
gl9cycH96PkmKrcuRDLBbEtQYzTaUfnFnb5oJiRK2jy+hG6a0O9tjWeCXMSx
zRXooLX+3iuSmXBnMOVvO9rKgvFTJY0JC/tdKL/RD/1bz9HOM8F4yZanxLXY
n195ZrMuMmG7M+WSHlonVK1vVQ4TSr8/Ant0tZX03rE8JgjvLNE6ha5L6U6r
LGLCcaahwy30m08PXctLmLC3MS/vLTpFGDMhVs4EbfMFlN/otn0nXfMrmTCk
P93BWofvX4nOgoyn6B+F503RcoMq/Y/rmcD5W1Pqh075+kp1qpEJW+q2K2ej
V82xStVoYwIjKulXG5p9f0U77RMTapv3DM1f3yVYUGX3jjPAhAv9hJXr0I35
8XWBw0woqzjifQRtLqtPE5lkwpmmC99uoAkKtP3+M0yQafbobkJP7X79uV9E
BSqOU5f9RM9XZWrxJVTA+YVtr5wF1sfV/+iH5qnAWY2e6sVokwtpG+8qqoDF
KVaYG/rqhceebKoKWF6t0kpFe4qRmBIcFVB5mR3wGt1REFIyqq0Cc8TmrFlg
ifPL7EywMVQB8RlWpRs6Mq0pzNJcBfRN6P/dQ+c8r5NJ2aICgbGZjXIbugRJ
4ZmjMztVYNPkmXve6PvLY8r89qlAUH1WVhXaQs+f+CJEBfK6xHcQN+J85LvO
HYxVgaLUm9t90GnVxLHl51QgYJ4d7QH6+Y1OmuolFTh3wytoBH24z/LlcK4K
VM+940Ky6hJMBq60iyhSAdcxmcWWaL8tLqsqy1RgeuFscwxaOsT0rv5TFfi4
jRFdjxah/6ooq1OBx+/f/P2KjlyluXX4Ja53h/MpmU24fnnXt0ffqsDRS9I/
tdCnPRrUclpVoNBY4ZMF+vmgSqx1uwpsG9oz7IquYN71W/hJBVZqnpI/hvau
GrnV36cCXbcfMq+i/35qP7vohwrsnera+gb9c1hEN2pCBYYUthX9QW9085p/
fEYFFMwnq3nWOP8quU2lIixgHnTzWIc2KjtAJImxoFWqYPVutIy14aEmCRY8
2PpePQLd4l5QVSvNgjdSyWFX0VX7ZWSl5FjwwcFHvwFN7pvUD5vPghVnmYvG
0J+9wgM6lVjgqOM/QrXpEkCsaP0tEgsobEmzlWi/Z1d5Q2QW0NuPt25FTzin
morTWLB0Wi9/L/rE2pf3VjJYcCIfXkeir7LPyh5XYYFTYErCf+isY+uudrFZ
sG6yYNd9tN2F/TfEuSzYfzDjTBO6RcR/gM1nwfqCKpuvaKuBuNA/aiyImb+Y
PYv2NqlaQ9VkwU4ft2bSZqx3QnDWDS38fcWF/epo4+us1N06LJD68yRlJTrz
SE87YSHG6yrX1Qr9c841p8xFuL6sYBcXdAVXapmeHgue6eyc8Efz72jvfazP
AgKjeOUJ9JABUd55KQsCrH1+nUGPfKsf01vOggVEMM1Dl/9cpaBjyIL+j8ck
K9FfmtQf+a5kwS6RazUtaI+rWnKGxizYeq7HZRz93ORWaSOwIPz7zqIFW7oE
vF47+5+mLAgSMS7TR8uZ6rwoXIvrPfpM1xktenuYudSSBfF3OjefQJcWlIXf
tcL5Te4Uz0OHdmdVvdnMAvOJOX/fose6G0QX2uN+/tUOF92K/b4oQZPjxIKc
Zf/t00bbTJ67GLyDBWKGYVc3oX+vTkob38mC+ip/x4PoQMetynoeLBB9MPvg
EvqDpqTIeR8W3CX0iLWhWwxbtar3s0DWWldItsX7m9am/tXBmE9KFmlO6Jzr
lErNMBYsEpTI56ANRuV3T0fh/jfTaD/RHS9u7SpPZAFJyLqzzq5LYJtJ0FFK
Z4GnYnrqBfTmI5aduf+x4GXSGYUvaL1vbvwzV1mg8V4zW8Me57vp3BPZQhYk
xGfk70CfVqU/ayzC+SuUbDmM9ntR3Zh8C+P7sXtxrP2/vx8k79lYjPngZfE2
A31VI+H0nlIWOEzKjxehGXsC+hfeY0FDvkl0PXrV5SMOofdZcPTLnYl+tM7C
74FTFSwgzxfIyGzDerMxsQx7zIItBoZrtNCpaXntlFoWdKztirNDv4nzp8S9
YAF/K9M7Bs0MlySPvsF6XGTfU412q5I/UNrKgvOrJrlzHbAfhtQwvghZMLlH
9ZsZ2pxwLDOwjwWH+r8cikH7/pmbfO8HC4IPf77+Ft26/S/xyS8W+C94aUpz
xP7WEnujeRbzt3tdpBv63eGd/M+SbAhzvPk5D32ibbn0SgU2VLt7Jfaj10ew
Bl4R2OCh2x5HdsLxJlI7F1LZID5/NtocPRK4KGM9kw2VhaaeXuiz3x+WpLLZ
8OqH/YZINHPl32pdLhsI1bYmF9B+jofOfOazIZdFmlOMlkgazv+owYaa5vXD
z9HVN61smrTZEKx0/243mpo6d/O+RWy4KMJ4LeKM70ephT8+LWFD79mom3x0
wI1KiXJDNsgRGRes0KKXPrrdFbDhfOWB0jC017m9NfVr2HCqKErrNtr8x4SV
kSUb7q4zWNmBDu57LZ5mzYbkkrRlUtuxnvs2LdhlxwaqUPrsMrTXoVNpJ53Y
UEQ/YeGCvr8u8v0GVzZc+/BYKRL98FhM9eHdbBC8V+7KRYfr9sHhPWzwnF62
tQKdLn5Z094bx7tzoegtuuD+h/PqvmwQsbieNoCWIDgLZPex4d7WrBWT6I23
Xs6Z8Mf1+FZKSO7A/rphr19fAK7XrUmchDZxtm08e5ANM/m2czhoxcLD19yD
2NBwk/ZlEVr8eseDwGA2fLMKKgO08TGeeeQRNtAtjUOt0a/GTRMqQ3D+RR1B
O9GOH1/f1wxjg7zfxf4D/34/K7pg7XE2jPt9/3ESHWSnYRJ/kg1TrrGqaf++
73uTkh3Jho36E+1X0Gm/5GXio9Gpa9ruozW97d65x7GhcYmPSeO/+YWYrj93
mg2Wx+U0+tFAaVA7lMwGl3pGxgw6d/EvesYZNmyoDzom59Il0L0zv2A8jQ0V
F1z+MNE12S+3x55nw5JtT4MM0QHarzKZF3H+WrubtqCpvCPtO7PZoPPOUOkA
2m/yiMX8q2yo0z1gmIb+o3Re4XE+G3ZJ1YrdQoen9JSKF/3Lb5HOV2g9BeF8
i2I26JKYiYPofm7tpM09NrR3k08vcO0SjLsn+sU8YMPHvXbJC9E3Gv7eD6tk
g2nB/SQzNHPz/gdWT9jQOt0d6IKuag9s2V/LxvuyQ1wIujNgS3PqC8zv13aH
LqFJrRGLTjdivdxbJfcUPdDy8PGmZjacyXk63I1uJmWedWljwzapoO5ZNGsg
VHN1Oxv6JY/lKO3sEux+u9ZLRIjxVH/gy0crguPis5/YIPUlUNQAvfFKuIZc
DxuUL7U9Wod+KPPYackXNqx9dMXWHn1RVP/BdD8b0l8o0LzRRTGTZy59Y8PW
RMHAUfSyDa/pH4fYwHSbTk1Gt23qFf8xwoa9zO6WQrTE75b5fRNsoKSfFTxD
O1a5qFlPsQGkO1o70FE7ww+JzeD+b/Yt/YHOmEmXt5nF+JDorX/RDQufWamI
qMIPkeelMm54v2Jufn5griqU/eZPUdCrf1ypCBRXhfudllQ1tEGov/U2SVV4
dsTNQx/dKtoqYSKtCqLu/A8CdIuY6G2dearwtOvJlg3oifL3TX5yqkAoSPvh
iB46uMnXeb4qyBY0fvBFD2yP/3JJSRXC0wJ7TqC9Xr5tv62sCrV7uiYy0e84
8YO2dFWIeid25j7amh/4Oo+lCpVdXuItaJmi76lXuKqQHBm96Ae6pttGaY26
Kuxwui4isQvnd+poeIiWKtQffqNBRfMWL9ay0lUFS6mX1VpovVXFjRKLVSHe
7tsdI7RmVpa34RJViOm2TLBGb7fvzVUwUIVR4l1TT7RYunxBnRGO9+3Mpki0
vGgG199EFda2/Ph0DT228XbO/XWq0KuQT3qFpmYf1Di6SRUcxsefT6CrD4Q0
m9upQvT+HQEqu3H8F4GRYttVYTxYcGgt2oDzS89htyrsNGdfCUDLn5v7Id8H
48nV2nERvdiB0h0SoArEaf2BarSz0XfW+8O4H792af9A7z55KtUlHOPzMdSP
4I7nJaaTmuIpVcjYUG2/Ah0yPufPlQRViFtBM3dBD223jZJOU4XzTt1HotHG
9N9PMy+owvQ78vtCdM97LYmf2aqwsKsp7TVa9EmluHqeKiQQKEE/0dRi+voX
RaoQq+6xk+iB9z/VuU823FGF4KHRzQboI4r+5fIPVWFVf6CDM9q6LWha/akq
DDa1fz2ODthC946uVwVFzdAdl9EROk9iRl6rQhJZoqEa3XY55FbeO1V4SVfT
60AHq+nUj7TgegvWiQygR+Y+cj7UhvFQmxgbRz8JEG327lCFyftiS2X2YH8/
JSu2+LMqmAkop1XRZWeK7jX1Yf5ppNAEaJuL0Zp+g5h/+3lOTuiGquIv0SOq
IBZ0/OtB9MEoG+3kX6rwvTR0MgFNXvTucvYfHO9KsMw1tEic6pPqORwwDALv
B+gmF7WgL3M58GAXo/Y52u7wgziaBAckNDWSm9FMpa+el6U48L48sP8TevNg
a8FmGQ50zz9M/Yp2b2hT5MpygDTGGxpBm2w/xyfIc8B18pzNH7TesMvMpAIH
Vr49dVjcE893l5yNIxU58Ez+/ZMF6A0mgXfkiBy4Z/J3mIGG1Qf63ipzYNzr
0iot9NB7s2XjFA5cPp29dyk6vY6QwqDj54bddwXolq16H+KZHGjPyrG0RJ/N
1CZLq3LgZO6VN07oSxFeoV58fP7jzMP+/57X29DN1uJAVEjR5Sj0yIcVASd1
OXB0esP+s+jHPuPXGIs5wA8tTspBv3y9KurHEhy/f71lKTolRyiVaciBc9l/
PtWjc14vCp025sDcSrPEz+jvJSuy+Ws4MKVVX/oX/cmzdxfFkgMV95PzKV74
fiwQt0i35kAmQ95TD/1SN9kH7DjwZ3rhPUu01a+iWRNnDmzYX+LrgZ4am84l
7uRAXUnlg6Nozbs5MwXuHGg1CxImohuJiw4NeHEgTi/HNwcdenjxwn5fDhyP
WN1Ygk5JuKs0uJ8De89HGNagW99v/nkmkAPPo7p+v0MHJI/VnwrmwOZjA/mf
0Gz9sTz1oxw4dHPl9+/oWM2Ira2huJ9hNPdJdLZYzMJ54RwInb/piYg39psL
MwO2Jzhw49PrY/PQV53kc2UiOXCQ5jBOQhs9FWu0PsWB68GJSax/n5+8df1G
DAeyzD5HaKLt3j6vPhLPgS/XNqxfhn5C+/R28DQHmtVvxwFaVnyvJCeFAwvu
6QxvRJPELC6cTuOA7ICIpjPaP3p95srzHEg4YrPbBz1Z45CpdpEDPa9uJB9F
6ySLOPtmc0Cc50FPQO+PIfSQrnLAfERe/RL6ykWnPc8LODAhF2lSgta0mTgb
cJMD8vPsiLXoxu6EzdtLOZByObutDc19fXBGtQznL/ZguB89dWVnOukhB3jr
Rm9MogcGJYezqzgwM2N0W8YH38d5ppaHajjw2XD2EQNttdx7Sc5zDiyknBHV
Q28+E7l14jUHjOZSn5mjU0vtNY43c2Dtjx5jZ3Re9d/QmI8c2K34IPAA+mJ4
uvK+Txw4El8/G4MecW3nGvdxQG6Bqvwl9JPsrVYV3zkQI5B5UYp2bP/AuPGT
AxyQ3PQMndHRlntjggOFZ+sm2tDRQ5vcx6c5EJgnjB1Em92/Vt06hwt74vlJ
s+j+ZNJ5cwkuSD6SDFLai/P/cI1nNY8LLgE69Tz0XReG5boFXLDdk+q7Eu2c
fUGQReLCkcNf/rNC714YLbGYxgXnjoA/O9DJRxm9TBYX1mtcj/JHu11o3XuE
y4Xq2G2jYegJenvtEg0u9HVdPp+EHtqsfdNUlwvZmxOtc9B6KwyvXtDjQoGk
YsBttNgfZ/etBlz4MJNoWoP+apSgfn0VF0yfEq68R282ULugbMKFlqPpdV/Q
I8ue9Bibc4G2rXxoDN3UHH5H3ZIL257Hp4n74nnVdsfUrU1ciD/X2k5AB8wb
0NPZygX338/6OGi9wjVlp7Zx4Wuf7D499JBesizZmQub//uzxhj9u/Rd3DcX
LsxsDRyyQFN/UJc92cWFFaZbz9iji3uf8W564O8Vv2jvRJ8NecHa44Xx9ndb
4I32O2m3fL0PFwTbeMv80a4Jy1Vv+HJBrOzqzCF0jXTU5tl9XBC3N48KQ381
M6BvOMCF00Y5+rHoh5/Enn0K5AK/2zUmBa2+M1IYFMyFihHp9xn/5v9f5+Yf
R7kwt7hvPBd9JK328PowLmgFc/JvoY33bvXddpIL4RMZiRVo8QSiLOUUF1KM
UvfVo/cr/iJ1xnLhNS3Zuhn9yj2OlXsax4dOzU//nhe5VqklmQtvXnC539BZ
UpdYz1O5YOfWbjeGZm1denL4HOZLWTHjL7pAajnFNoML910JkeJ+eJ4wtz+9
NJMLcaIy1vPQzeuuZrlmccFCZ9fMAnTj/AFFr0tcCHq20YiMbpm2dJS5zIW9
WtaWLHS5yUL5sVwufC4QW6yBHnArNjLIx3w5v0xVH927puep+A0upPrn5huj
h67u6mu8hfGcr8ewQHvOtV2XVcqF5MHWWFu0tWvR3B/3uNDle+WQC1pVT0Fu
/QMusN+eDfJCTxitqmyp5MLFLgnxg+gpUl/568cYD+lNb0LQMbVzXebVcMEo
ws4xCn0i23ptUR0XJn+tlU5G24orD2xs4MIanz2XL6BfbfuqcPI1Fw4WlPy5
8m/8su8WBU1ceFYxxi1C/11eXRzczIVl3ivM7qIDZbRdaK1csJIf7KxA3y2l
Kv76gPNT+k+5Fl25WSsqtgPrLf76kZdo9usXpYIuLjRCpEEz+jT92nD5Zy7k
vT2yrh3NLHn6XLcX69GOZtaNLlQ50rKjD/Px2e9DA2jZGzpVewa4YP3BwfAH
+uzh60Wm37igaHcmeAxtpy6bzx/kQo/s07rfaJmEd4byP3B85x7VWfQctfyo
9mEuyPpt1Rfbh/kVe7jp/AgXnuqdWyCNlvKabNcc4wJrTe9+ObTdmnMPHo1z
Yf/N7g8L0N7KmwhbfnGhlZm+irTv333jXEDIJBduG8oEU9BWexwqen5zIb2p
y4WBLit84hE+zYXj7q7v2OiX+9+syv+D630QLM1Dd7keeps0w4XgF9Yxaugj
UvZ/I/5ygZqjp6WJvvo5/oTzLBfShveGaqPPyvvsXjaHB0afkpt10dFZqevl
RHigov+VuxhNfP0m+Tf6+1Rokf6/31eVyZDn8oAVyXi8DP2z7voddTEeLA0b
KjREL6l9HGErzoOiqO4eI7TxatZ/+RI8+M+RfwrQFtsT1opJ8SB5oM3QDJ0Z
KEz1kMbnr56aXYvWNT5+6p0MD4wzTHss0YHl5UJjWR7YRrMrNqFT7CpdSuR4
eJ4Uv7UF/cpu1M5IgQcUybRW+3/r6X7r0zCfB9mHohSd0QPlpikBijw4cIIZ
5YrelhDdso7Ag6QJhcPu6N1/bf3lSPi5+rChN7qx7/rMHDIPPvvrBu1Dj4eV
GB6g8kC9R1c0CP2haeJnHZ0Ht4KiV4X8i/eOJ8voKjx4eJ7jdwJ9/4EG7GPj
+k9Mno9G1x41GBdweTD0oE8uCa0jc1g2j8+DXTPynmfRikHK65dr4HwTi7kX
0VPalpbK2jw4ITl68wq66Guc1A9dHpAV3VQK0a3kBGG0Hg+KF+Ydv4PekeCa
3bmUB6n0NxqV6McUF3WmIQ8UOo2Tav/FK6LxZIkRD+LnHn/xGu1fN7iEt5oH
C8YlFn9Eezhktiiu4cF47Z3lvf/ms85z08g6XK8CV+EHuj7SzuvkBh64alwm
TqKlI+P91a15oGkwZibij/fbr6zTv7fwIPH6n1YZ9GRZ9o9Eex5MHZh6rYQ+
sT8mytCJB3f37Ryko1meDyaTXXjw7qDbbTW04qjNt5xdPHhWJlO22P/fv8ec
Try5hwfCJS55K9EBqonUER8eOEl5zzdHkx3uzp71x/z0ZTvaoOUMTLdpBvKg
28fN2/mfre8JHA7zIMjl6xEP/3/n0RtV+0J58HZWZI0/2ldthWvyCczfA27H
QtC2JZsX74riwb5u0fhIdKqEr7pPLA92VvAUEtFPKMQLc0/zYE1w7fFzaO48
uysfk3mwjEIPv4SO8Jh88TeNB8GMCdUCdBIo/IrJwHyQaCooRVtcWGuTn8WD
J8MftCvRLXb8j2Y5mA/PEwNr0QlDRxdSrvLgpZ7O8tf/xts/fG9uAQ+yNiWw
W9GVOuNh1jdwPlOjmUK05ktyocNtHvRMvyrvR08pWYZb3+GBVa4w5yc63pac
VlLOg7Rk+wPT/75f+1NTqoIHjgkenaL7uwR0rycOlVUYT0sn6jw0/82M2/tq
Hngs8FYjoGXeS1yYrOPBTeqNlQx0/t531DsNPNimq+rFQ4t27w1hNmK9evxp
1UavkfQb+v2WBwH6mQZL0SznyApmKw8uEFV1jNGd49ncU+08UDTqvbYW/Tmz
nxcv5EG5i6uKFbpm0J1I7ObBH8U1BbZo/4Zlrrw+HljP371hBzrTYDRW6xsP
RDX+vPJAL8iDHRNDPBj4Oe+FH/q47HlRsVEeyD+iWBxCt+uO3D83wYOmcYvH
x/7NfzrEJ+U3Dy4vMBqNQPt2x8w++sOD94uIMXHooPQLhLg5fNjQ5bH9DHqv
+c6Av3P5kCm5MDADzTtom3dKkg8mxtHF2eiKH1JG3vP4sNByU1Y++uvVO736
CnxY86rM6jZaOyJAV1KRD53MY+L30B2vNepeE/jwyZGU8xBd6tH65ZUyH8RP
nL72BL207IaOEQ3HXz1xsh5dmPd4iawKH8yLFJlv/u2HRs7b26p8kHdvcGpF
M8xMar14fFixPedhB9ravD9fQp0PHw+OdH9GTxVOXmvU5MOA45BLP3qxXfWx
GB0+tFQP3BlEu8u5JcUs4kPd/pKUUfTLr39csvT5sI9zNeX3v/kdOPxreBkf
5rT/EJsTgOe917dfvl/BhyvHf5yWRBd1Kt3OX8WH1T+O/JFF297ImpBazYeu
b7sOKqF7X2/9mGjGh5+FUYup6KHanaX31vKhmw36LHS79IWrBy35EEcrXq+G
zkqqrMmw4oOWnbaRDnpSr7QocTM+Tz3+xhI0YcRwB9OOD7esXOxXorWPp7be
ceCDYVyejAmate6oQpszH5grfYVr0QUlR/2CXfH52dapVugkia4l93bxISdm
e9JWdCDz7edcDz5EZH4bdUAbKI2dWe3NBzjBSXRFx0jE59T48qG/d++kB9qi
/FDPkf18kPbfWeqL7sjp0Pt5kA96C8J/HUDrdnweKDrEBxuKdX8wWrZRz+3N
ET4syfsUcwyd03pt38dQnH9b+dRJtCp5fYnrcT5cb1IziUXXN7j2iUTyYaXj
7dIk9KXvq57JReN+ST4in0VXLja+bh2H+bhhuPVCwL+/13zYePc0HxJzzjZm
/3v+Qd/0ZSm4Xuvh4Wv/XCUjfTQN4589lXMD7eqpqumczofeTp/LxeiNXiWX
vmTwgdjZIX0Pvf6Y2gelLIyPzaXIh+iWg3Z+pGw+nCRSSx6jN7QXVfGu8EHl
e/fPWvTnexRbzjU+1FbWyDWgMxqCnQby+bB87evaxn/58iBqQX4hH8ofWu5v
RrPF/RfCTT5kvY9424Y2Dj9UZlzMh6dfCrs60cc63M/uu8OHwgNDq3rQPasc
OzeW8eFZNVt2AB2qORW56QEfzr01XTCEbkhecfVMBR98cxTf/0TfrqnfVveI
D15tz8LH0QlSGt9dn/Bh/KfXy9/o5wsmezqq+bBLbcXADFrv+5WQ+c/4cJnc
fErkAD6vwCnMtJ4PY7lPuOLo3/eS3255gfHtKIiSQh83VDHd+5IPD7ffG52H
jlWJ+GP6Guuny3JcHu2XuXSM/wbr51iSpCJ64nzso5Im3P9zEE9AMzWHn6S+
40OahUW6Mpo9sGnEtoUPnFsG+6jo5gED93mtuN7ZysUM9J8jB9uy2vigdlv3
oQpa3NPp5YqPfCCzVLaoootruIorO/hwif88hodec+qcooIQ43On7pA6ukXW
/grxE8bT4UepFtqxOuwts5sP7wvcxnTRmv0Bjqq9fFA/NKquh16qozMV2MeH
LWcufFj673k+Yea+A1gP6nW/DNDSR3Z05X3DesyaE2aE5i5ovTI2iP0rzZ0B
aNWR/zwWDvOh9Mb/WqzzeKC2LQ7gSUUSoUSZiuytjJGpsMxDSohIhsiYopCh
dHFVxoqiDBkihBKliFAXmcITGSK5ypWhXoZcddNb537en9/P2Z+z197rt/c5
dzJ00Ubb1eWyZyTB/l2HnyE6LyN4oWMO87YnY8gEvW7wob/kAr7/svDv+9Es
gn/bnl+UBD5fN2qBNl/snWn5IQnrvudWWqE3JTg7Ki9JQmKjeJAt2mrq4Wzr
MgLfo9YE2KOdFlpC1FgJpHJaKxxFDxTILDatJCDvISzqijZ5Yblcm51A5H3R
MQ/0s1l523AOAnYX4q28mfWkeba4cxJY2bRe3QedtBgeI8tFYMvx8alT6CC9
Y4M/uQmcf2lT5I+++/D34ToeAk2GtVaB6HHP5RpVfAQudxpahKAHuXzLOfkJ
nLDf2hmKjhxfSD0lQEBbtsEjHB0aI7O/cROB23eKxiLRa4PMuqOECZzcK7wq
Gl2QYfNpTJRAq29/XBzTnx62A3ZbCUhJmuy8ihaWY/u8JEHAbefspuvo4uOq
VnGEwL3m6eEbaE/5hB+TUgQO/l7nkIau2P3lC4s0gfYYcZ8MZj+jebexyxK4
8y3BLRu9IfJM4E55AsYxXAm56JZqpeYKBQKuItEteUxeD+4XS1BE57mG3EXT
uoLY0l0ExPu9EorRxzgbwlJUCIwUNh8sQfNW8ZxqVyMgMj9woQzNf8ZZTHAP
AQN+le5yZr5fgXoXNAk81vQ7UMmsb65VZa02gZ2tG2aq0Z1ihUn3dQlonD1c
Xses13JW2s+AgH7AeH49+mNNcZWWMYHaiaLbTeim8RdQs5dAHmf5jjZm/+z2
rd6/n0A8T1pLB1qHPVNA1JzAn+dzXrxGpy4Y/xq0JPDsXHR6Lzre5NJAkDUB
Z5Z+3bfomd6+0XhbrMdXI2EYfW8iZDD5CAG/Lzwto2iFioawDY4ErD2fav2F
LiXRmhFHCcSZb0mdYOZTdeu/doyAg8+2ns9MvsQ5Cwbdcb90N9jMog0kmtYJ
HieQEtDdsIAWOm49bnySwLt3paL/MOflqTLHL18CXvZFr34x/fQTyHnvRyBb
YPIRqz9+v4yc5YUCCWwQUeNlR5+UiusyCcH+H1t1mBP9z6Jg7LFQAsVyE+Hr
0FsG+pTf/EagrWOmgQ9tcuhBfFAE5nuvj9FGdKhF4qbfLhBY4yy0bzO6Wshe
JyEKx79MtRf1Z/4f++LdY/F8FBRsFkenBj/ytLxMgMNwcUYSnRJ+d4IrgUCd
Rd2l7eji1cE+XdcIJGoLSciiB+hbq4hkAnvqhXMV0FTtQMDyFAIuXEGjSujy
eeXChDQCGU5TiqpomftfU6ZuETjCGqe5m6m3bpMMzSLAmlEroon++TnMceQ2
gZ9K+hnaaKsnOa+K7mDeb69W0GfWX3DxZ0YBgUPtHXNG/v//XykicMzT7LUp
OpprcHD2HoEXi+lPzdBlTwSkvR4QCC1r7rVAG6/WHxV5SOBVlb62NVq2vd1m
opzAtE9ZvS1ajU9Wq7UC+xG30smeqb+jdyKkikCF5/IqJ+Z9a1b1Dj4jsHCu
qMyFmf8fXb2zdbg+dptZN/SSrlJKwB8EhO2Uc7zQ+xpN5N41EFhqVEs/wfTL
L99bq4mArYdijC86Xq9QbLqFQIT34Gs/9OUVvD+yXxHwaXggHoi+OCx9l7WT
QOBk7poQtEE+T755F4Fw9tT+c2hBz1IZt27Mqxm302/onSV7ioLfENiRVDMa
jm7PPFRR3UdgmYlxZuS/+6upy/0W6zGoOH4JvW6pmV1jCPunLsYRgz46ZWGf
OUyg6mbjxzi0em9D/vAI3g+Z/clX0Noq0nMOH/B+89mZkIhe2x/xpnCMAK+h
mWkS+u4OPWm2TwTMpQQFb6K9s3jVj0xiXg87vk1l1lOW55E2TYCUsUXcQp8e
LTrk+4UAf8e6wkx031SbjM5XAqZvjV9lo5/+uBoAswT2bXITz2XqKTC6Lz9P
wF/8pXseOkSg3Jp7gYBKgF9yAXpsKNiBZZGAd6fHQCGTb8HhtI7vBF5XJM0W
MzbYoXD/H8xbZoxICfrEE76315YIXC+5fKAUnfuc99HJZRR6f076P0QrOPcX
8S2noMTBdbgc/bWa98B3Vgrnpeujn6CPRF53vbuSgm5+YlAleiiolFuZjYLA
8DKtKrRUtsdgDjuFfAG3kWp0+KCStwkHBYmsT3/UoPUzhKYm1lDYkHs9ow79
4uNo1p21FDisdyS/QNt+FHST5aYQnyp6sJ45n+/rt7HwUNDbx+faiJ4ZgY+T
vBSud6242sTkM/i5adh6Cqu2n7Rp+Xd8zkYBfgqLr4fF29AxPd9GxjZSyPqP
pnQ70w/R6++6BbEew3DrTnRif/Ge4M24HllNmS50lnayoZwwhaoH7fzdaAfX
/KUGEQoei7GDPeiMWy+WBYlRkBZoqu1Fz3sp6ytvpfD8YGVJP9rL2Sn7lzg6
gbXoLZN/rTOnR7ZR4I7bWzeENlV3v1FKKFybnqgbRjff3kzypChIrU0bH0En
Nc/56+6gYOqpXjKK3rThWmKwDAXFn4lCY8z9MBLffV2Owtaz817jzH2Uw9/u
oEAh6JCx4wRjkXdfiCKFTzfvmU+hz/W51bxTojDrKyn3Gf1xp0MUtwqFsOqf
V/6LXlGpOr5JjcJpyTeNM+hVn+LSdXdT0DZmFZpHu4ove3VYg4JW7McjC+gG
v/vcUVoUhrYJPVpk7rP+0K2F2hS8akZ+/kA/k0ltHNKlwP+c1XaJ8a1OGW8D
Ck+ynPhYAnA9d142fjbC8bsVa1nRIBnZzbWXQqtjyrJVaIH3XPwG+yikfZey
ZUc7ye6KtDOjUJkUG8eBdj3Zez/UnELuGZY2TvTAw78d4i0pcG159I0LLaKS
8PqxFYXUDr7dPMx4iXI5CRvcP6PZej70fql8iajDFB7ZKOvyo++N1LZVHqEQ
HXI5VgDtOWqQIulIQT6xknszWnZiTCLuKAXvB7djhNFPy00vjrpQaFaVmRdF
h2t35Vu5Ubghmhq8FW18SX99sQeF8dC/hiXQzjljMW+8KBzkurKRoNtXTRVz
naAgltNpJ4V+L6uRGOyDebJS7dqBVrWbFuU7jc8t1M7IovdtFOsP8Mc8PGp/
L4/uShedrT1DAb+l8oro+OVNi/LBeD6yb+btQg/NCZepnKWQ/Gm8RAX9aWF+
e0coBV7LYSN1ph5/EmAVRkHBva19D/r83JXHfREUfLYMmmkx81e6DLRdwPPU
I6ilgx4pueJzPArnd1Dt1WPG61ziEI2lkOkkFGGIrta0aKqJp9DTZbvRBB28
Krre5yqF6ZDYKlNm//u82DiuUTiVctHQDG3xw2UdVzKF+ltRqhZonj420eM3
sV9pU5EH0UldX7NmUilk5/b9bY2+Gzdg8yGdguUW0wEbdGIt/eWcScFkMkzH
Dv219HZOQTYF8+rdp+3RqWoF03M5FL5rvM5zRAvHKuYb5lH4liX9/iha2+WD
kn0BBSf+vCEXtMZ/eJ+YFuJ5mawqd0Un2Bx2vFSM/Vor2O2O5urxs1YqocD3
1yF7L3RB1lTg6VKst2rFOW+0l4b3kxsP8T4SGQ8/ybyPj+vs3XLMg52cvy/6
z5wxUvyEgkyUwqHT6LUulTpFlRQmCp7v8kdXhv6pw19NYV56JPAM+sSR9Mj1
NZgfQ7AMQpe5bxcdqsX7yrjmRzA6b9xI9tdzCobyht/OMv36w6PUp55C+Ryb
6nlmf7Wfp695iXm/pZcVhrYacLPUbaZwiSWmMAKt0HrBPamVwmbNx62R6Owk
5w8Vryjk+Y3XXWTyxASoA8/rbp3LUeg5+R6jrV0UlooGGmPQpyoktG904/kw
VF0ej/4fuhvxVA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0.25},
  PlotLabel->FormBox["0.5143494647365738`", TraditionalForm],
  PlotRange->{{0., 12.41521648}, {0.23063886003746367`, 0.5143494647365738}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4620911061875*^9, 3.46209112571875*^9}, 
   3.462093898015625*^9, 3.46209615928125*^9, 3.462096417328125*^9, 
   3.462100495359375*^9, 3.462102124875*^9, 3.462263330453125*^9, 
   3.46227014040625*^9, 3.462270280578125*^9, 3.462271532390625*^9, 
   3.46227238084375*^9, 3.462272943890625*^9, {3.4623608495625*^9, 
   3.462360855234375*^9}, 3.46236093771875*^9, 3.46251000684375*^9, 
   3.4625246833125*^9, 3.46308397115625*^9, 3.463098489421875*^9, 
   3.46321007734375*^9, 3.463220826265625*^9, 3.4632228010625*^9, 
   3.4632230571875*^9, 3.463283466171875*^9, 3.463290476953125*^9, 
   3.463290579359375*^9, 3.463290710359375*^9, {3.46329078934375*^9, 
   3.463290800625*^9}, 3.463291592234375*^9, {3.46329860165625*^9, 
   3.463298618390625*^9}, {3.46330119146875*^9, 3.463301195359375*^9}, 
   3.463301453890625*^9, 3.46338323028125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"MapThread", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintRange", "[", 
     RowBox[{"#1", ",", "Automatic", ",", 
      RowBox[{"PlotLabel", "\[Rule]", "#2"}]}], "]"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
           ",", 
          RowBox[{"10", "^", 
           RowBox[{"Log", "[", 
            RowBox[{"10", ",", 
             RowBox[{
             "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], 
            "]"}]}]}], "}"}], "&"}], ",", 
       RowBox[{"{", 
        RowBox[{"lmvx", ",", "lmvy", ",", "lmvz", ",", "lmp"}], "}"}], ",", 
       RowBox[{"{", "2", "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Maximum of vr\>\"", ",", "\"\<Maximum of v\[Phi]\>\"", ",", 
       "\"\<Maximum of vz\>\"", ",", "\"\<Maximum of p\>\""}], "}"}]}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.392103857065*^9, {3.424403840612*^9, 3.424403840981*^9}, {
   3.424412308292*^9, 3.42441230916*^9}, {3.424674335484*^9, 
   3.424674335854*^9}, {3.424746143223*^9, 3.424746155407*^9}, {
   3.42624146175*^9, 3.426241462703125*^9}, {3.42743614609375*^9, 
   3.427436153953125*^9}, {3.4280517664375*^9, 3.42805176803125*^9}, {
   3.4296087606875*^9, 3.42960876203125*^9}, {3.43287117890625*^9, 
   3.432871180546875*^9}, {3.43349390584375*^9, 3.4334939065*^9}, {
   3.4457075976647997`*^9, 3.4457075981484003`*^9}, 3.45025309940625*^9}],

Cell[BoxData[
 RowBox[{"Fit", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"First", "[", "#", "]"}], ",", 
       RowBox[{"Log", "[", 
        RowBox[{"Last", "[", "#", "]"}], "]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"Take", "[", 
     RowBox[{"lmvy", ",", "All"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "\[Lambda]"}], "}"}], ",", "\[Lambda]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4331423758413754`*^9, 3.4331423896226254`*^9}, {
  3.4331424227476254`*^9, 3.4331425031382504`*^9}, {3.433229410046875*^9, 
  3.433229410546875*^9}}],

Cell[BoxData[
 RowBox[{"MapThread", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintRange", "[", 
     RowBox[{"#1", ",", "Automatic", ",", 
      RowBox[{"PlotLabel", "\[Rule]", "#2"}]}], "]"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
           ",", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", 
            RowBox[{
            "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], 
           "]"}]}], "}"}], "&"}], ",", 
       RowBox[{"{", 
        RowBox[{"lmqvx", ",", "lmqvy", ",", "lmqvz", ",", "lmqp"}], "}"}], 
       ",", 
       RowBox[{"{", "2", "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Mean quadratic of vr\>\"", ",", 
       "\"\<Mean quadratic of v\[Phi]\>\"", ",", 
       "\"\<Mean quadratic of vz\>\"", ",", "\"\<Mean quadratic of p\>\""}], 
      "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.392103915752*^9, 3.392103916847*^9}, {3.392103960051*^9,
   3.392103960483*^9}, {3.416840886906*^9, 3.416840887672*^9}, {
  3.4168418472799997`*^9, 3.416841847667*^9}, {3.420881422192*^9, 
  3.420881422852*^9}, {3.424404367148*^9, 3.424404367593*^9}, {
  3.4274362075*^9, 3.4274362079375*^9}, {3.427444026671875*^9, 
  3.427444028046875*^9}, {3.429608976609375*^9, 3.429608977515625*^9}, {
  3.4470656385778*^9, 3.4470656637237997`*^9}, {3.4470702670208*^9, 
  3.4470702676208*^9}, {3.4479520677545*^9, 3.44795206878575*^9}, {
  3.447981265645125*^9, 3.447981266442*^9}}],

Cell[BoxData[
 RowBox[{"MapThread", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintRange", "[", 
     RowBox[{"#1", ",", "All", ",", 
      RowBox[{"PlotLabel", "\[Rule]", "#2"}]}], "]"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
           ",", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", 
            FractionBox[
             RowBox[{
             "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
             RowBox[{
             "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]]}], 
           "]"}]}], "}"}], "&"}], ",", 
       RowBox[{"Rest", "/@", 
        RowBox[{"{", 
         RowBox[{"mdvx", ",", "mdvy", ",", "mdvz", ",", "mdp"}], "}"}]}], ",", 
       RowBox[{"{", "2", "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Maximum difference of vr\>\"", ",", 
       "\"\<Maximum difference of v\[Phi]\>\"", ",", 
       "\"\<Maximum difference of vz\>\"", ",", 
       "\"\<Maximum difference of p\>\""}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.39210392155*^9, {3.4470657008408003`*^9, 3.4470657020488*^9}, {
   3.4470703577967997`*^9, 3.4470703600968*^9}, {3.447405212203125*^9, 
   3.44740521315625*^9}, {3.447960903942*^9, 3.447960921457625*^9}}],

Cell[CellGroupData[{

Cell["\:041d\:0430\:0445\:043e\:0436\:0434\:0435\:043d\:0438\:0435 \:043f\
\:0440\:0435\:0434\:0435\:043b\:044c\:043d\:044b\:0445 \:0437\:043d\:0430\
\:0447\:0435\:043d\:0438\:0439", "Subsection",
 CellChangeTimes->{{3.4313321126121955`*^9, 3.4313321190334797`*^9}}],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
      ",", 
      RowBox[{"Log", "[", 
       RowBox[{"E", ",", 
        RowBox[{"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}],
        "]"}]}], "}"}], "&"}], "/@", 
   RowBox[{"Take", "[", 
    RowBox[{"lmvx", ",", "160"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.428046098877*^9, 3.428046138682*^9}, {3.428046273891*^9,
   3.428046278408*^9}, {3.428048245019*^9, 3.4280482552860003`*^9}}],

Cell[BoxData[
 RowBox[{"Fit", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
       ",", 
       RowBox[{"Log", "[", 
        RowBox[{"E", ",", 
         RowBox[{
         "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], 
        "]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"Take", "[", 
     RowBox[{"lmvx", ",", "160"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.428045671094*^9, 3.428045731291*^9}, 
   3.428045778542*^9, {3.4280461425629997`*^9, 3.428046145177*^9}, 
   3.428046281384*^9, {3.4280482593310003`*^9, 3.428048259602*^9}}],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{
   RowBox[{"dif", "[", "lmp", "]"}], ",", "Automatic"}], "]"}]], "Input",
 CellChangeTimes->{{3.419757445337*^9, 3.419757453922*^9}}],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"lmvx", ",", 
   RowBox[{"{", 
    RowBox[{"0.005449", ",", "0.0065"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.392214684084*^9, 3.392214709699*^9}, {3.392214744674*^9,
   3.392214791245*^9}, {3.3922254906940002`*^9, 3.392225522097*^9}, {
  3.3937383623389997`*^9, 3.393738391196*^9}, {3.39374511637*^9, 
  3.3937451476730003`*^9}, {3.419918643665*^9, 3.419918678366*^9}, {
  3.419918729164*^9, 3.4199187703450003`*^9}, {3.4199229105806*^9, 
  3.4199229523417997`*^9}, {3.4199230864238*^9, 3.4199231589482*^9}, {
  3.4199231981977997`*^9, 3.4199231999606*^9}}],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"lmvy", ",", 
   RowBox[{"{", 
    RowBox[{"0.99474", ",", "0.99475"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3922132729639997`*^9, 3.392213307112*^9}, {
  3.392213339943*^9, 3.392213370421*^9}, {3.392213411685*^9, 
  3.392213477457*^9}, {3.3922146364960003`*^9, 3.392214677995*^9}, {
  3.392225539495*^9, 3.392225572465*^9}, {3.3937385852790003`*^9, 
  3.393738607968*^9}, {3.393745164554*^9, 3.393745196752*^9}, {
  3.4199188323570004`*^9, 3.4199188907279997`*^9}, {3.419922979829*^9, 
  3.4199230333838*^9}}],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"lmvz", ",", 
   RowBox[{"{", 
    RowBox[{"0.005449", ",", "0.0065"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.392214795035*^9, 3.3922148652349997`*^9}, {
  3.392225577465*^9, 3.392225642218*^9}, {3.3937392212139997`*^9, 
  3.3937392491870003`*^9}, {3.393745270773*^9, 3.393745328203*^9}, {
  3.4199230570334*^9, 3.4199230709174*^9}}],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"First", "[", "#", "]"}], ",", 
       SqrtBox[
        RowBox[{"Last", "[", "#", "]"}]]}], "}"}], "&"}], "/@", "lmqvy"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0.52142", ",", "0.52143"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.392214684084*^9, 3.392214709699*^9}, {3.392214744674*^9,
   3.392214791245*^9}, {3.3922254906940002`*^9, 3.392225522097*^9}, {
  3.3937383623389997`*^9, 3.393738391196*^9}, {3.39374511637*^9, 
  3.3937451476730003`*^9}, {3.419918643665*^9, 3.419918678366*^9}, {
  3.419918729164*^9, 3.4199187703450003`*^9}, {3.4199229105806*^9, 
  3.4199229523417997`*^9}, {3.4199230864238*^9, 3.4199231589482*^9}, {
  3.4199232171205997`*^9, 3.4199232825782003`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mvz", "-", 
  RowBox[{"ListLimit", "[", 
   RowBox[{
    RowBox[{"Select", "[", 
     RowBox[{"lmvz", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"25", "<", 
         RowBox[{"First", "[", "#", "]"}], "<", "40"}], ")"}], "&"}]}], "]"}],
     ",", 
    RowBox[{"ApproximationReport", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "HoelderInterval", ",", "LimitPlot", ",", "HoelderError", ",", 
       "MaxError", ",", "Shift"}], "}"}]}], ",", 
    RowBox[{"CutValues", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.419918925401*^9, 3.419919006067*^9}, {
   3.4199190806359997`*^9, 3.419919086929*^9}, {3.419919390505*^9, 
   3.4199194103190002`*^9}, 3.419919463862*^9, {3.419919533291*^9, 
   3.4199195337320004`*^9}, {3.419919564743*^9, 3.4199195668129997`*^9}, {
   3.419919605509*^9, 3.419919624024*^9}, {3.419919659583*^9, 
   3.419919709251*^9}, {3.419919763774*^9, 3.4199197644119997`*^9}, {
   3.419919795741*^9, 3.419919795955*^9}, {3.419919866527*^9, 
   3.419919881932*^9}, {3.419922328466*^9, 3.419922413201*^9}, {
   3.419922547881*^9, 3.4199226311846*^9}, {3.4199231694314003`*^9, 
   3.4199231700554*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"abscisses was shifted on \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "24.91571235824418`"}]}],
  SequenceForm["abscisses was shifted on ", -24.91571235824418],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.419919088578*^9, 3.4199193267469997`*^9, {3.4199193926949997`*^9, 
   3.419919412469*^9}, 3.419919466145*^9, 3.4199195364309998`*^9, {
   3.419919591619*^9, 3.4199196257609997`*^9}, {3.419919676613*^9, 
   3.4199197096879997`*^9}, 3.419919766248*^9, 3.4199197978*^9, {
   3.419919877269*^9, 3.419919883641*^9}, {3.419922333365*^9, 
   3.419922414248*^9}, {3.419922550593*^9, 3.4199226316994*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"HoelderCI=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0.004113618643131545`", ",", "0.004116545963517995`"}], "}"}]}],
  SequenceForm["HoelderCI=", {0.004113618643131545, 0.004116545963517995}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.419919088578*^9, 3.4199193267469997`*^9, {3.4199193926949997`*^9, 
   3.419919412469*^9}, 3.419919466145*^9, 3.4199195364309998`*^9, {
   3.419919591619*^9, 3.4199196257609997`*^9}, {3.419919676613*^9, 
   3.4199197096879997`*^9}, 3.419919766248*^9, 3.4199197978*^9, {
   3.419919877269*^9, 3.419919883641*^9}, {3.419922333365*^9, 
   3.419922414248*^9}, {3.419922550593*^9, 3.419922631793*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"HoelderError=\"\>", "\[InvisibleSpace]", 
   "2.9273203864498`*^-6"}],
  SequenceForm["HoelderError=", 2.9273203864498*^-6],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.419919088578*^9, 3.4199193267469997`*^9, {3.4199193926949997`*^9, 
   3.419919412469*^9}, 3.419919466145*^9, 3.4199195364309998`*^9, {
   3.419919591619*^9, 3.4199196257609997`*^9}, {3.419919676613*^9, 
   3.4199197096879997`*^9}, 3.419919766248*^9, 3.4199197978*^9, {
   3.419919877269*^9, 3.419919883641*^9}, {3.419922333365*^9, 
   3.419922414248*^9}, {3.419922550593*^9, 3.419922631793*^9}}],

Cell[BoxData["3.889355157469382`*^-8"], "Output",
 CellChangeTimes->{
  3.4199189551289997`*^9, 3.419919007903*^9, 3.419919088609*^9, 
   3.41991932681*^9, {3.419919393974*^9, 3.4199194125690002`*^9}, 
   3.419919466151*^9, 3.4199195364370003`*^9, {3.419919591624*^9, 
   3.419919625767*^9}, {3.419919676633*^9, 3.419919709755*^9}, 
   3.419919766266*^9, 3.4199197978050003`*^9, {3.419919877275*^9, 
   3.419919883646*^9}, {3.4199223333710003`*^9, 3.419922414377*^9}, {
   3.419922550638*^9, 3.419922631793*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLimit", "[", 
  RowBox[{
   RowBox[{"Select", "[", 
    RowBox[{"lmqvz", ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"25", "<", 
        RowBox[{"First", "[", "#", "]"}], "<", "40"}], ")"}], "&"}]}], "]"}], 
   ",", 
   RowBox[{"ApproximationReport", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "HoelderInterval", ",", "HoelderError", ",", "MaxError", ",", "Shift"}], 
     "}"}]}], ",", 
   RowBox[{"CutValues", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.41991988827*^9, {3.419919935038*^9, 3.4199199683450003`*^9}, {
   3.4199226896689997`*^9, 3.4199227404938*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"abscisses was shifted on \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "24.97239207020283`"}]}],
  SequenceForm["abscisses was shifted on ", -24.97239207020283],
  Editable->False]], "Print",
 CellChangeTimes->{{3.419919862414*^9, 3.419919889236*^9}, {3.419919936887*^9,
   3.4199199686949997`*^9}, {3.4199226926798*^9, 3.4199227412114*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"HoelderCI=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2.8273659191420753`*^-6", ",", "2.8273676225891113`*^-6"}], 
    "}"}]}],
  SequenceForm[
  "HoelderCI=", {2.8273659191420753`*^-6, 2.8273676225891113`*^-6}],
  Editable->False]], "Print",
 CellChangeTimes->{{3.419919862414*^9, 3.419919889236*^9}, {3.419919936887*^9,
   3.4199199686949997`*^9}, {3.4199226926798*^9, 3.419922741227*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"HoelderError=\"\>", "\[InvisibleSpace]", 
   "1.7034470359682274`*^-12"}],
  SequenceForm["HoelderError=", 1.7034470359682274`*^-12],
  Editable->False]], "Print",
 CellChangeTimes->{{3.419919862414*^9, 3.419919889236*^9}, {3.419919936887*^9,
   3.4199199686949997`*^9}, {3.4199226926798*^9, 3.419922741227*^9}}],

Cell[BoxData["2.8273668372273992`*^-6"], "Output",
 CellChangeTimes->{{3.4199198624820004`*^9, 3.419919889242*^9}, {
  3.419919936892*^9, 3.419919968701*^9}, {3.4199226928514*^9, 
  3.419922741227*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 SqrtBox["4.977368517344871`*^-11"]], "Input",
 CellChangeTimes->{
  3.419919923469*^9, 3.419919956065*^9, {3.4199227104793997`*^9, 
   3.4199227311026*^9}}],

Cell[BoxData["7.055046787474107`*^-6"], "Output",
 CellChangeTimes->{
  3.4199199239049997`*^9, 3.4199199566359997`*^9, {3.4199227109318*^9, 
   3.4199227315861998`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{"Subtract", "@@", 
   RowBox[{"{", 
    RowBox[{"0.995648", ",", "0.995649"}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.419918794442*^9, 3.419918803979*^9}, 3.419918899752*^9}],

Cell[BoxData["1.0000000000287557`*^-6"], "Output",
 CellChangeTimes->{{3.4199187989040003`*^9, 3.4199188043789997`*^9}, 
   3.419918900352*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0427\:0442\:0435\:043d\:0438\:0435 \:0441\:043d\:0438\:043c\:043a\
\:043e\:0432", "Section",
 CellChangeTimes->{{3.46372869771875*^9, 3.46372870240625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Remove", "[", "PrintInfo", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.416840712736*^9, 3.416840715256*^9}, 3.42475822971*^9, {
   3.424758710091*^9, 3.4247587126219997`*^9}, 3.424765315001*^9, {
   3.433843608703125*^9, 3.43384361371875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"coor", ",", "bounds", ",", "node"}], "}"}], "=", 
   RowBox[{"ReadAuxFiles", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<coord\>\"", ",", "\"\<node\>\""}], "}"}], ",", 
     RowBox[{"ShiftVector", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"ProcDistrib", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", ",", "16", ",", "2"}], "}"}]}], ",", 
     RowBox[{"NumberOfRefs", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.462511057890625*^9, 3.462511059875*^9}, {
   3.4630846981875*^9, 3.4630846984375*^9}, 3.463221052171875*^9, 
   3.463287143125*^9, 3.463287280859375*^9, 3.46346134746875*^9, 
   3.46371509275*^9, 3.4644236065625*^9, {3.4671025671057997`*^9, 
   3.4671025784298*^9}, 3.4671030818817997`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"out", "=."}], ";", 
  RowBox[{"ReadBinarySnapFiles", "[", 
   RowBox[{"\"\<screw\>\"", ",", "\"\<.bak\>\"", ",", "5", ",", "out", ",", 
    RowBox[{"PrintInfo", "\[Rule]", "None"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"coor", ",", "bounds", ",", "node"}], "}"}], "=", 
   RowBox[{"ReadAuxFiles", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<coord\>\"", ",", "\"\<node\>\""}], "}"}], ",", 
     RowBox[{"ShiftVector", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"ProcDistrib", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", ",", "16", ",", "2"}], "}"}]}], ",", 
     RowBox[{"NumberOfRefs", "\[Rule]", "2"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p", ",", "vx", ",", "vy", ",", "vz", ",", "nut"}], "}"}], "=", 
   "out"}], ";"}]}], "Input",
 CellChangeTimes->{{3.4247585576*^9, 3.424758582568*^9}, {3.424758700366*^9, 
   3.4247587428710003`*^9}, {3.42475878312*^9, 3.4247587852980003`*^9}, {
   3.4247588367650003`*^9, 3.424758837*^9}, {3.424760814852*^9, 
   3.4247608155439997`*^9}, {3.424760849539*^9, 3.424760850201*^9}, 
   3.424762636179*^9, {3.424765987216*^9, 3.42476598913*^9}, {
   3.4247661789820004`*^9, 3.4247661790620003`*^9}, {3.427543458321*^9, 
   3.427543462574*^9}, 3.429425146908*^9, {3.429427914884*^9, 
   3.42942791526*^9}, {3.4314256807290974`*^9, 3.4314256808950973`*^9}, {
   3.4457076438876*^9, 3.445707644028*^9}, {3.447947156442*^9, 
   3.447947163176375*^9}, 3.44794726372325*^9, {3.450259687796875*^9, 
   3.450259687921875*^9}, {3.450259905046875*^9, 3.45025992028125*^9}, {
   3.45026030640625*^9, 3.450260338078125*^9}, {3.45026070065625*^9, 
   3.45026070746875*^9}, {3.453893350890625*^9, 3.453893379609375*^9}, {
   3.453893680625*^9, 3.45389370828125*^9}, 3.461299303823*^9, {
   3.46129947904*^9, 3.4612994793900003`*^9}, {3.461301507494*^9, 
   3.461301524395*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"out", "=."}], ";", 
  RowBox[{"ReadBinarySnapFile", "[", 
   RowBox[{"\"\<screw_64_32564.snp\>\"", ",", "3", ",", "out", ",", 
    RowBox[{"PrintInfo", "\[Rule]", "Debug"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"coor", ",", "bounds", ",", "node"}], "}"}], "=", 
   RowBox[{"ReadAuxFiles", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<coord\>\"", ",", "\"\<node\>\""}], "}"}], ",", 
     RowBox[{"ShiftVector", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"ProcDistrib", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", ",", "16", ",", "2"}], "}"}]}], ",", 
     RowBox[{"NumberOfRefs", "\[Rule]", "2"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], "=", 
   RowBox[{"Take", "[", 
    RowBox[{"out", ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"2", ",", "4"}], "}"}], "-", "1"}]}], "]"}]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.4247585576*^9, 3.424758582568*^9}, {3.424758700366*^9, 
   3.4247587428710003`*^9}, {3.42475878312*^9, 3.4247587852980003`*^9}, {
   3.4247588367650003`*^9, 3.424758837*^9}, {3.424760814852*^9, 
   3.4247608155439997`*^9}, {3.424760849539*^9, 3.424760850201*^9}, 
   3.424762636179*^9, {3.424765987216*^9, 3.42476598913*^9}, {
   3.4247661789820004`*^9, 3.4247661790620003`*^9}, {3.427543458321*^9, 
   3.427543462574*^9}, 3.429425146908*^9, {3.429427914884*^9, 
   3.42942791526*^9}, {3.4314256807290974`*^9, 3.4314256808950973`*^9}, {
   3.4457076438876*^9, 3.445707644028*^9}, {3.447947156442*^9, 
   3.447947163176375*^9}, 3.44794726372325*^9, {3.450259687796875*^9, 
   3.450259687921875*^9}, {3.450259905046875*^9, 3.45025992028125*^9}, {
   3.45026030640625*^9, 3.450260338078125*^9}, {3.45026070065625*^9, 
   3.45026070746875*^9}, {3.453893350890625*^9, 3.453893379609375*^9}, {
   3.453893680625*^9, 3.45389370828125*^9}, {3.453894088015625*^9, 
   3.45389411221875*^9}, {3.45389428615625*^9, 3.45389428721875*^9}, {
   3.45389614628125*^9, 3.4538961469375*^9}, {3.45405600221875*^9, 
   3.4540560028125*^9}, {3.454063562859375*^9, 3.454063563265625*^9}, {
   3.4540675545*^9, 3.454067555140625*^9}, {3.4541349195625*^9, 
   3.45413492025*^9}, {3.4541368695625*^9, 3.45413687246875*^9}, {
   3.454137044421875*^9, 3.454137046296875*^9}, {3.454138497875*^9, 
   3.4541385045*^9}, {3.45414413725*^9, 3.45414413765625*^9}, {
   3.45414481946875*^9, 3.45414481996875*^9}, {3.454146233921875*^9, 
   3.454146246203125*^9}, {3.45414659553125*^9, 3.4541465961875*^9}, {
   3.454146777578125*^9, 3.454146777921875*^9}, {3.454147024875*^9, 
   3.454147025125*^9}, {3.454147510671875*^9, 3.454147522859375*^9}, {
   3.454148182125*^9, 3.454148184671875*^9}, 3.4541484483125*^9, {
   3.454150692015625*^9, 3.45415069753125*^9}, {3.454150920078125*^9, 
   3.454150921359375*^9}, {3.454150959953125*^9, 3.4541509605625*^9}, {
   3.4541522276875*^9, 3.454152228578125*^9}, {3.454399970765625*^9, 
   3.454399973203125*^9}, {3.454400091984375*^9, 3.45440010028125*^9}, {
   3.459933208689*^9, 3.4599332439294*^9}, {3.4599332928666*^9, 
   3.4599333041766*^9}, {3.4599333797742*^9, 3.4599333852186003`*^9}, {
   3.4599334831865997`*^9, 3.4599334869774*^9}, {3.4599340379034*^9, 
   3.4599340505394*^9}, {3.460357233992*^9, 3.460357248903*^9}, {
   3.4603594469519997`*^9, 3.46035944892*^9}, {3.460359485008*^9, 
   3.460359502663*^9}, {3.46043429371875*^9, 3.4604343195625*^9}, {
   3.460720742453125*^9, 3.460720747890625*^9}, {3.460784949265625*^9, 
   3.460784961984375*^9}, {3.460785500515625*^9, 3.460785501171875*^9}, {
   3.461142767375*^9, 3.461142767609375*^9}, {3.461314325328125*^9, 
   3.461314327453125*^9}, {3.461387169984375*^9, 3.46138717340625*^9}, {
   3.461473632921875*^9, 3.461473635515625*^9}, {3.46226345621875*^9, 
   3.462263484078125*^9}, {3.46227022534375*^9, 3.46227022784375*^9}, {
   3.462271542390625*^9, 3.462271554140625*^9}, {3.462272391078125*^9, 
   3.46227239165625*^9}, 3.4625100421875*^9, 3.463084283578125*^9, {
   3.463220927921875*^9, 3.46322092859375*^9}, {3.463222825140625*^9, 
   3.4632228260625*^9}, {3.463284470609375*^9, 3.46328447125*^9}, {
   3.46328753378125*^9, 3.463287538609375*^9}, {3.46328763453125*^9, 
   3.46328763484375*^9}, {3.46329064028125*^9, 3.463290640375*^9}, {
   3.4633833166875*^9, 3.46338331734375*^9}, 3.463714229421875*^9, 
   3.4639124471875*^9, {3.463915049984375*^9, 3.46391505171875*^9}, 
   3.463916746703125*^9, {3.464423599859375*^9, 3.46442360384375*^9}, {
   3.4671031580498*^9, 3.4671031622398*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "16", ",", "2"}], "}"}]], "Print",
 CellChangeTimes->{
  3.46226346871875*^9, 3.462266412375*^9, 3.46227022846875*^9, 
   3.462270284140625*^9, {3.462271547734375*^9, 3.46227155440625*^9}, 
   3.46227239296875*^9, 3.462510044546875*^9, 3.46308428796875*^9, 
   3.463220929359375*^9, 3.463222826328125*^9, 3.463284471796875*^9, 
   3.463287538765625*^9, 3.463287638359375*^9, 3.463290640671875*^9, 
   3.463383317796875*^9, 3.463714230203125*^9, 3.4639150569375*^9, 
   3.463916748640625*^9, 3.46442360071875*^9, 3.4671021219398003`*^9, 
   3.4671031625668*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "64.0005935932`", ",", "32564", ",", "64", ",", "64", ",", "64", ",", 
   "40.`"}], "}"}]], "Print",
 CellChangeTimes->{
  3.46226346871875*^9, 3.462266412375*^9, 3.46227022846875*^9, 
   3.462270284140625*^9, {3.462271547734375*^9, 3.46227155440625*^9}, 
   3.46227239296875*^9, 3.462510044546875*^9, 3.46308428796875*^9, 
   3.463220929359375*^9, 3.463222826328125*^9, 3.463284471796875*^9, 
   3.463287538765625*^9, 3.463287638359375*^9, 3.463290640671875*^9, 
   3.463383317796875*^9, 3.463714230203125*^9, 3.4639150569375*^9, 
   3.463916748640625*^9, 3.46442360071875*^9, 3.4671021219398003`*^9, 
   3.4671031625688*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Length of read from binary=\"\>", "\[InvisibleSpace]", 
   "2772480", "\[InvisibleSpace]", "\<\" and size of it=\"\>", 
   "\[InvisibleSpace]", "11089920", "\[InvisibleSpace]", "\<\" bytes\"\>"}],
  SequenceForm[
  "Length of read from binary=", 2772480, " and size of it=", 11089920, 
   " bytes"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.46226346871875*^9, 3.462266412375*^9, 3.46227022846875*^9, 
   3.462270284140625*^9, {3.462271547734375*^9, 3.46227155440625*^9}, 
   3.46227239296875*^9, 3.462510044546875*^9, 3.46308428796875*^9, 
   3.463220929359375*^9, 3.463222826328125*^9, 3.463284471796875*^9, 
   3.463287538765625*^9, 3.463287638359375*^9, 3.463290640671875*^9, 
   3.463383317796875*^9, 3.463714230203125*^9, 3.4639150569375*^9, 
   3.463916748640625*^9, 3.46442360071875*^9, 3.4671021219398003`*^9, 
   3.4671031625718*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ghost=\"\>", "\[InvisibleSpace]", "3"}],
  SequenceForm["ghost=", 3],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.46226346871875*^9, 3.462266412375*^9, 3.46227022846875*^9, 
   3.462270284140625*^9, {3.462271547734375*^9, 3.46227155440625*^9}, 
   3.46227239296875*^9, 3.462510044546875*^9, 3.46308428796875*^9, 
   3.463220929359375*^9, 3.463222826328125*^9, 3.463284471796875*^9, 
   3.463287538765625*^9, 3.463287638359375*^9, 3.463290640671875*^9, 
   3.463383317796875*^9, 3.463714230203125*^9, 3.4639150569375*^9, 
   3.463916748640625*^9, 3.46442360071875*^9, 3.4671021219398003`*^9, 
   3.4671031625738*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p", ",", "vx", ",", "vy", ",", "vz", ",", "nut"}], "}"}], "=", 
   RowBox[{"ReadTextSnapFile", "[", 
    RowBox[{"\"\<screw_64_6592.snp\>\"", ",", "5", ",", 
     RowBox[{"PrintInfo", "\[Rule]", "Automatic"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"coor", ",", "bounds", ",", "node"}], "}"}], "=", 
   RowBox[{"ReadAuxFiles", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<coord\>\"", ",", "\"\<node\>\""}], "}"}], ",", 
     RowBox[{"ShiftVector", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"ProcDistrib", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "2"}], "}"}]}], ",", 
     RowBox[{"NumberOfRefs", "\[Rule]", "2"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Max", "[", 
  RowBox[{"Abs", "[", 
   RowBox[{"GetInner", "[", 
    RowBox[{"divd", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], ",", "ghost"}], "]"}], 
    "]"}], "]"}], "]"}], "\n", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Print", "[", "bounds", "]"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{
  3.3921039886730003`*^9, {3.392105717043*^9, 3.39210572119*^9}, 
   3.3921102884110003`*^9, {3.3921233945109997`*^9, 3.392123394633*^9}, {
   3.392207332901*^9, 3.3922073329709997`*^9}, {3.392214312914*^9, 
   3.3922143213859997`*^9}, {3.392215570263*^9, 3.392215570424*^9}, {
   3.3922253990889997`*^9, 3.392225400657*^9}, 3.393738187318*^9, 
   3.393745043512*^9, {3.416840706391*^9, 3.416840723329*^9}, 
   3.416840829807*^9, {3.416841402211*^9, 3.416841425608*^9}, {
   3.416841780446*^9, 3.416841780932*^9}, {3.4168418627060003`*^9, 
   3.416841904712*^9}, {3.416841951108*^9, 3.416841951744*^9}, {
   3.416842035707*^9, 3.416842036132*^9}, {3.416842081597*^9, 
   3.416842085135*^9}, {3.4168423439709997`*^9, 3.416842356748*^9}, {
   3.416843625369*^9, 3.416843637442*^9}, {3.41684367196*^9, 
   3.4168436735699997`*^9}, {3.4168438059630003`*^9, 
   3.4168438063900003`*^9}, {3.416843858528*^9, 3.416843859135*^9}, {
   3.416843969874*^9, 3.416843970119*^9}, {3.4197681612390003`*^9, 
   3.4197681737539997`*^9}, {3.41976820795*^9, 3.4197682094700003`*^9}, {
   3.419768543875*^9, 3.419768552769*^9}, {3.419770784535*^9, 
   3.419770802138*^9}, {3.419770848426*^9, 3.419770850965*^9}, {
   3.419770956535*^9, 3.4197710013529997`*^9}, {3.4197710423599997`*^9, 
   3.419771053922*^9}, {3.419825406244*^9, 3.4198254071429996`*^9}, {
   3.419825459851*^9, 3.419825460391*^9}, {3.419831135725*^9, 
   3.419831135993*^9}, {3.4198313885880003`*^9, 3.419831416106*^9}, 
   3.419831455231*^9, {3.419833618587*^9, 3.419833618608*^9}, {
   3.4198337229709997`*^9, 3.419833723578*^9}, 3.419834039966*^9, {
   3.419834073013*^9, 3.419834073307*^9}, {3.419834360417*^9, 
   3.419834386778*^9}, {3.4198350945299997`*^9, 3.4198350948599997`*^9}, {
   3.419835706836*^9, 3.4198357069709997`*^9}, {3.419836610365*^9, 
   3.419836611112*^9}, {3.419839827665*^9, 3.419839828328*^9}, {
   3.4199166707*^9, 3.419916673387*^9}, {3.41991674219*^9, 
   3.419916742623*^9}, {3.419917374951*^9, 3.419917375668*^9}, {
   3.419922159389*^9, 3.419922160138*^9}, {3.4199228032058*^9, 
   3.4199228046566*^9}, {3.4199245674602003`*^9, 3.419924569301*^9}, 
   3.4199247037574*^9, {3.420951700505*^9, 3.420951712491*^9}, 
   3.420952452241*^9, 3.424402172249*^9, {3.424402321398*^9, 
   3.424402321535*^9}, {3.424403126275*^9, 3.424403127038*^9}, 
   3.424415276455*^9, {3.4244154443970003`*^9, 3.424415444889*^9}, {
   3.4244157463970003`*^9, 3.424415746891*^9}, {3.424672975508*^9, 
   3.424672989815*^9}, {3.424680002508*^9, 3.42468000698*^9}, {
   3.424687740531*^9, 3.424687750867*^9}, {3.424687826395*^9, 
   3.424687826781*^9}, {3.424754397135*^9, 3.4247544024890003`*^9}, {
   3.424757444841*^9, 3.424757448908*^9}, {3.4247651155699997`*^9, 
   3.424765125251*^9}, {3.4247657921809998`*^9, 3.4247657973310003`*^9}, {
   3.426240764765625*^9, 3.4262407695625*^9}, 3.426241276140625*^9, 
   3.427436248953125*^9, {3.427443955609375*^9, 3.427443974625*^9}, {
   3.427591096390625*^9, 3.427591100015625*^9}, 3.427591179109375*^9, {
   3.427591742765625*^9, 3.427591749765625*^9}, 3.42759179196875*^9, 
   3.427599325796875*^9, {3.42759939603125*^9, 3.427599399296875*^9}, {
   3.427599487109375*^9, 3.4275995445625*^9}, 3.427600049046875*^9, 
   3.427600138296875*^9, 3.427600178328125*^9, 3.42760023928125*^9, 
   3.427600294859375*^9, 3.4276003409375*^9, 3.427600500078125*^9, 
   3.427600742609375*^9, 3.427600862375*^9, 3.427600934109375*^9, 
   3.427600977578125*^9, 3.4276010734375*^9, {3.427601988109375*^9, 
   3.42760199*^9}, {3.427602114140625*^9, 3.42760211425*^9}, {
   3.427602241953125*^9, 3.42760224353125*^9}, {3.427602389296875*^9, 
   3.427602390734375*^9}, {3.4276026599375*^9, 3.42760267578125*^9}, 
   3.42760397096875*^9, {3.4276043405*^9, 3.427604349453125*^9}, 
   3.427606986*^9, 3.4276073175*^9, 3.427607411015625*^9, 
   3.427607486859375*^9, 3.42761544934375*^9, {3.427617771109375*^9, 
   3.427617775625*^9}, {3.427622904140625*^9, 3.42762292465625*^9}, {
   3.42762566125*^9, 3.427625668640625*^9}, {3.42805281809375*^9, 
   3.4280528245625*^9}, 3.4280530641875*^9, 3.42805314409375*^9, 
   3.428053767609375*^9, 3.428055704671875*^9, 3.4280558536875*^9, 
   3.428219989796875*^9, 3.428989600015625*^9, {3.4289897183125*^9, 
   3.428989721*^9}, {3.428989828453125*^9, 3.4289898291875*^9}, 
   3.42899038821875*^9, {3.428994024265625*^9, 3.428994032796875*^9}, {
   3.42900433859375*^9, 3.429004345671875*^9}, 3.42900557253125*^9, 
   3.429597584328125*^9, {3.42959762065625*^9, 3.429597634515625*^9}, {
   3.4295979494375*^9, 3.4295979495*^9}, 3.42959835109375*^9, 
   3.42959846659375*^9, {3.429598756078125*^9, 3.429598758140625*^9}, 
   3.429598996125*^9, 3.429599818640625*^9, {3.429599870578125*^9, 
   3.429599872203125*^9}, {3.429605348765625*^9, 3.429605349859375*^9}, {
   3.4296053943125*^9, 3.429605426125*^9}, {3.429605493671875*^9, 
   3.429605494265625*^9}, {3.42960591303125*^9, 3.429605924953125*^9}, 
   3.429606666796875*^9, {3.429608986375*^9, 3.429608986875*^9}, {
   3.42960966046875*^9, 3.429609660578125*^9}, {3.429609849984375*^9, 
   3.42960985096875*^9}, {3.42961012596875*^9, 3.4296101260625*^9}, {
   3.429610533921875*^9, 3.429610534734375*^9}, {3.42961077725*^9, 
   3.4296107773125*^9}, {3.431425723726097*^9, 3.431425724350097*^9}, {
   3.4319284543059998`*^9, 3.4319284570959997`*^9}, {3.4319314627320004`*^9, 
   3.431931464392*^9}, 3.4319316365559998`*^9, {3.431931806896*^9, 
   3.431931807241*^9}, {3.431932029454*^9, 3.431932029913*^9}, {
   3.431964682273*^9, 3.431964682381*^9}, {3.431964714933*^9, 
   3.431964715125*^9}, 3.431964866723*^9, 3.4319649783710003`*^9, {
   3.431965024881*^9, 3.4319650286140003`*^9}, {3.431965334506*^9, 
   3.431965334849*^9}, {3.43196547287*^9, 3.431965517612*^9}, {
   3.432280430381*^9, 3.432280445488*^9}, {3.43228048155*^9, 
   3.432280481856*^9}, 3.432288730765625*^9, {3.43228945446875*^9, 
   3.432289454546875*^9}, {3.43228988746875*^9, 3.432289902359375*^9}, {
   3.4325301394363747`*^9, 3.4325301401707497`*^9}, {3.432622287359375*^9, 
   3.432622297984375*^9}, {3.43262345525*^9, 3.432623455328125*^9}, 
   3.432623575453125*^9, 3.4326251135625*^9, {3.4326252115625*^9, 
   3.4326252116875*^9}, {3.43263063528125*^9, 3.432630636*^9}, {
   3.432633458984375*^9, 3.43263345946875*^9}, {3.43263724603125*^9, 
   3.432637247734375*^9}, 3.43297418121875*^9, {3.43297725315625*^9, 
   3.432977268203125*^9}, 3.433052598876743*^9, {3.4330549851421223`*^9, 
   3.433054985610314*^9}, {3.433067738926298*^9, 3.4330677637404737`*^9}, {
   3.4331504130913754`*^9, 3.4331504218413754`*^9}, {3.4331505221382504`*^9, 
   3.4331505227007504`*^9}, {3.433228307921875*^9, 3.433228312921875*^9}, {
   3.433235721140625*^9, 3.4332357300625*^9}, {3.4332358325625*^9, 
   3.4332358346875*^9}, {3.4332358683125*^9, 3.433235869484375*^9}, {
   3.433236554890625*^9, 3.4332365663125*^9}, {3.43348525815625*^9, 
   3.43348525884375*^9}, 3.4334852920625*^9, {3.4334853466875*^9, 
   3.433485347765625*^9}, {3.43349030096875*^9, 3.433490308109375*^9}, {
   3.433490468890625*^9, 3.43349049584375*^9}, {3.433568306765625*^9, 
   3.433568320125*^9}, {3.433573784859375*^9, 3.43357379053125*^9}, {
   3.43357722703125*^9, 3.43357723109375*^9}, {3.433582248203125*^9, 
   3.43358225665625*^9}, {3.433833862828125*^9, 3.433833876703125*^9}, {
   3.4340912946875*^9, 3.4340913004375*^9}, {3.434092698078125*^9, 
   3.43409270265625*^9}, {3.434092822546875*^9, 3.43409282290625*^9}, {
   3.43409366796875*^9, 3.434093672703125*^9}, {3.4340968256875*^9, 
   3.434096834546875*^9}, {3.4457076814524*^9, 3.4457076882228003`*^9}, {
   3.445707806902*^9, 3.4457078201308002`*^9}, {3.4457080336434*^9, 
   3.4457080339709997`*^9}, {3.4457084124582*^9, 3.4457084133786*^9}, {
   3.445708906167*^9, 3.4457089068845997`*^9}, {3.445709033541*^9, 
   3.445709034009*^9}, {3.4457091837066*^9, 3.4457091838002*^9}, {
   3.4457093621862*^9, 3.4457093624514*^9}, 3.4457095708206*^9, {
   3.4457098638822002`*^9, 3.4457098639602003`*^9}, {3.4457100463866*^9, 
   3.4457100468702*^9}, {3.4457104247958*^9, 3.4457104249206*^9}, {
   3.4457121117953997`*^9, 3.4457121200478*^9}, {3.447093604171875*^9, 
   3.447093614484375*^9}, 3.447093679703125*^9, {3.447947281801375*^9, 
   3.447947283113875*^9}, {3.447960644301375*^9, 3.44796064466075*^9}, {
   3.4479960413704*^9, 3.4479960430552*^9}, {3.4479960978642*^9, 
   3.4479960981918*^9}, {3.4479961754326*^9, 3.4479961796758003`*^9}, {
   3.448345060953125*^9, 3.448345065140625*^9}, {3.448345274765625*^9, 
   3.448345277609375*^9}, 3.448349810078125*^9, {3.448351080921875*^9, 
   3.448351081765625*^9}, {3.448351125484375*^9, 3.448351156078125*^9}, {
   3.448351660609375*^9, 3.44835166084375*^9}, {3.448351921921875*^9, 
   3.448351922421875*^9}, {3.450245886671875*^9, 3.45024592415625*^9}, {
   3.450245981609375*^9, 3.450245982359375*^9}, {3.45024746915625*^9, 
   3.4502474705625*^9}, {3.450251038109375*^9, 3.450251038484375*^9}, {
   3.4502512835*^9, 3.45025128371875*^9}, {3.450251747046875*^9, 
   3.450251747421875*^9}, {3.450251849734375*^9, 3.450251850203125*^9}, {
   3.450252387328125*^9, 3.4502523876875*^9}, {3.4502544365*^9, 
   3.45025443690625*^9}, {3.450257760875*^9, 3.450257760953125*^9}, {
   3.450423561078125*^9, 3.4504235750625*^9}, {3.4538938188125*^9, 
   3.4538938330625*^9}, {3.453893942625*^9, 3.453893958078125*^9}, {
   3.453894044375*^9, 3.453894069625*^9}, {3.453896142609375*^9, 
   3.453896144984375*^9}, {3.454399966375*^9, 3.45439996771875*^9}, 
   3.4599340656401997`*^9, {3.4599340966373997`*^9, 3.4599341148114*^9}, {
   3.459934512834*^9, 3.4599345528168*^9}, {3.4599353970732*^9, 
   3.4599354126576*^9}, 3.460012958762*^9, {3.4600134993022003`*^9, 
   3.460013505043*^9}, 3.4600140904222*^9, {3.4600203326352*^9, 
   3.4600203368627996`*^9}, {3.4600219266652*^9, 3.4600219294102*^9}, {
   3.4600239562426*^9, 3.4600239583276*^9}, {3.4600268716966*^9, 
   3.4600268790945997`*^9}, {3.4600271458926*^9, 3.4600271534955997`*^9}, {
   3.460105888132*^9, 3.460105895273*^9}, 3.460106275682*^9, 
   3.4601112112980003`*^9, 3.460111357049*^9, {3.46017444519*^9, 
   3.460174451133*^9}, 3.460346924381*^9, {3.460347078791*^9, 
   3.4603470832650003`*^9}, {3.460350414019*^9, 3.460350424035*^9}, {
   3.460351446066*^9, 3.46035144996*^9}, 3.460351937824*^9, {
   3.460352322457*^9, 3.460352323834*^9}, {3.460352561711*^9, 
   3.4603525620629997`*^9}, 3.460352804276*^9, 3.460353488468*^9, {
   3.460353855507*^9, 3.460353864434*^9}, 3.460354284479*^9, 
   3.4603546517*^9, {3.460355170947*^9, 3.460355177007*^9}, {
   3.460356368951*^9, 3.460356373487*^9}, {3.460357199542*^9, 
   3.460357207916*^9}, {3.460457882140625*^9, 3.46045788875*^9}, {
   3.460701960265625*^9, 3.460701966171875*^9}, 3.460704198203125*^9, 
   3.460704356453125*^9, {3.460704712796875*^9, 3.4607047130625*^9}, 
   3.460704743375*^9, {3.4607147954375*^9, 3.460714853109375*^9}, {
   3.4607207106875*^9, 3.4607207123125*^9}, {3.4632208993125*^9, 
   3.463220903046875*^9}}],

Cell[CellGroupData[{

Cell["\:0412\:044b\:0434\:0435\:043b\:0435\:043d\:0438\:0435 \:0432\:043d\
\:0443\:0442\:0440\:0435\:043d\:043d\:0435\:0439 \:043e\:0431\:043b\:0430\
\:0441\:0442\:0438", "Text",
 CellChangeTimes->{{3.392109623901*^9, 3.392109631783*^9}, {
  3.460704410734375*^9, 3.460704411828125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetInner", "[", 
   RowBox[{"ar_", "?", "ArrayQ"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "b", "}"}], ",", 
    RowBox[{"Switch", "[", 
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Dimensions", "[", "ar", "]"}], "]"}], ",", "3", ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox[
           RowBox[{"node", "/.", 
            RowBox[{"b_", "\[RuleDelayed]", 
             RowBox[{"BitAnd", "[", 
              RowBox[{"b", ",", "8"}], "]"}]}]}], "8"], "#"}], "&"}], "/@", 
        RowBox[{"Transpose", "[", "ar", "]"}]}], "]"}], ",", "2", ",", 
      RowBox[{
       FractionBox[
        RowBox[{"node", "/.", 
         RowBox[{"b_", "\[RuleDelayed]", 
          RowBox[{"BitAnd", "[", 
           RowBox[{"b", ",", "8"}], "]"}]}]}], "8"], "ar"}], ",", "_", ",", 
      "$Failed"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.419769262608*^9, 3.419769293922*^9}, {
   3.4265550571877866`*^9, 3.4265550579287863`*^9}, {3.4265560798137865`*^9, 
   3.4265560801037865`*^9}, {3.4265568567807865`*^9, 
   3.4265568637687864`*^9}, {3.4265569337687864`*^9, 3.426557018967787*^9}, {
   3.4280849051549997`*^9, 3.428084912672*^9}, {3.4280849476940002`*^9, 
   3.4280849504890003`*^9}, {3.432286145515625*^9, 3.432286146359375*^9}, {
   3.437985038765625*^9, 3.43798509209375*^9}, 3.437985326796875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetVacuum", "[", 
   RowBox[{"ar_", "?", "ArrayQ"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "b", "}"}], ",", 
    RowBox[{"Switch", "[", 
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Dimensions", "[", "ar", "]"}], "]"}], ",", "3", ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            FractionBox[
             RowBox[{"node", "/.", 
              RowBox[{"b_", "\[RuleDelayed]", 
               RowBox[{"BitAnd", "[", 
                RowBox[{"b", ",", "8"}], "]"}]}]}], "8"]}], ")"}], "#"}], 
         "&"}], "/@", 
        RowBox[{"Transpose", "[", "ar", "]"}]}], "]"}], ",", "2", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"node", "/.", 
           RowBox[{"b_", "\[RuleDelayed]", 
            RowBox[{"BitAnd", "[", 
             RowBox[{"b", ",", "8"}], "]"}]}]}], "8"]}], ")"}], "ar"}], ",", 
      "_", ",", "$Failed"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.436525074859375*^9, 3.436525090609375*^9}, {
  3.43798509975*^9, 3.43798512984375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"vxs", ",", "vys", ",", "vzs", ",", "ps", ",", "nuts"}], "}"}], 
   "=", 
   RowBox[{"GetInner", "/@", 
    RowBox[{"{", 
     RowBox[{"vx", ",", "vy", ",", "vz", ",", "p", ",", "nut"}], "}"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.419769319309*^9, 3.419769321623*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Max", "[", 
    RowBox[{"Abs", "[", 
     RowBox[{"GetInner", "@", "#"}], "]"}], "]"}], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{"vx", ",", "vy", ",", "vz", ",", "p"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.4168437683120003`*^9, 3.416843783642*^9}, {
  3.429420615705*^9, 3.429420615984*^9}, {3.431413701219097*^9, 
  3.431413703124097*^9}, {3.434859142591901*^9, 3.434859143232481*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "5.4260000000000006`*^-17", ",", "0.99855`", ",", "1.4157`*^-16", ",", 
   "1"}], "}"}]], "Output",
 CellChangeTimes->{3.4600207419012003`*^9, 3.4600268853775997`*^9, 
  3.4600271564116*^9, 3.460351454102*^9, 3.460351941689*^9, 
  3.4603526081029997`*^9, 3.460352810318*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Max", "[", 
    RowBox[{"Abs", "[", "#", "]"}], "]"}], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{"vx", ",", "vy", ",", "vz", ",", "p"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.4168437683120003`*^9, 3.416843783642*^9}, {
  3.429420615705*^9, 3.429420615984*^9}, {3.431413701219097*^9, 
  3.431413703124097*^9}, {3.434859142591901*^9, 3.434859143232481*^9}, {
  3.4457080412562*^9, 3.4457080414278*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.2506786584854126`", ",", "1.0085395574569702`", ",", 
   "0.2506786584854126`", ",", 
   RowBox[{"Abs", "[", "p", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.463915068296875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Union", "@", 
  RowBox[{"Flatten", "@", "nut"}]}]], "Input",
 CellChangeTimes->{{3.4457092260606003`*^9, 3.445709229477*^9}, {
  3.45406431596875*^9, 3.454064317265625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", 
     RowBox[{"#", "\[LeftDoubleBracket]", 
      RowBox[{"-", "1"}], "\[RightDoubleBracket]"}]}], "}"}], "&"}], "@", 
  RowBox[{"Union", "[", 
   RowBox[{"Flatten", "[", 
    RowBox[{"out", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.431413217297097*^9, 3.4314132557700973`*^9}, {
  3.4319316691949997`*^9, 3.431931670005*^9}, {3.434093684453125*^9, 
  3.43409368659375*^9}, {3.455439233203125*^9, 3.455439234703125*^9}}],

Cell[CellGroupData[{

Cell["\:0422\:0440\:0451\:0445\:043c\:0435\:0440\:043d\:044b\:0435 (\:0438 \
\:0431\:043b\:0438\:0437\:043a\:0438\:0435) \:0433\:0440\:0430\:0444\:0438\
\:043a\:0438", "Subsection",
 CellChangeTimes->{{3.462511057890625*^9, 3.462511059875*^9}, {
   3.4630846981875*^9, 3.4630846984375*^9}, 3.463221052171875*^9, 
   3.463287143125*^9, 3.463287280859375*^9, 3.46346134746875*^9, 
   3.46371509275*^9, {3.4639008413125*^9, 3.46390084565625*^9}, {
   3.46391191490625*^9, 3.46391191775*^9}, {3.463912052765625*^9, 
   3.4639120576875*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ar", "=", 
        RowBox[{
         RowBox[{"GetInner", "[", "p", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "ny", ",", "All"}], "]"}], "]"}]}], ",", 
       "vals"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"vals", "=", 
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Union", "@", 
          RowBox[{"Flatten", "@", "p"}]}], ",", 
         RowBox[{
          RowBox[{"#", "\[NotEqual]", "0"}], "&"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"ListContourPlot", "[", 
       RowBox[{
        SuperscriptBox["ar", "\[Transpose]"], ",", 
        RowBox[{"Contours", "\[Rule]", "20"}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Min", "[", "vals", "]"}], ",", 
           RowBox[{"Max", "[", "vals", "]"}]}], "}"}]}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"ny", ",", "1", ",", 
     RowBox[{"Length", "[", 
      SuperscriptBox["vy", "\[Transpose]"], "]"}], ",", "1"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.42760437415625*^9, 3.4276043845*^9}, {
  3.4276044245625*^9, 3.427604434765625*^9}, {3.42760466153125*^9, 
  3.427604697765625*^9}, {3.427604893109375*^9, 3.427605043453125*^9}, {
  3.431425765702097*^9, 3.4314257670380974`*^9}, {3.4325373617332497`*^9, 
  3.4325373618426247`*^9}, {3.4325374004051247`*^9, 3.4325374207176247`*^9}, {
  3.450423664125*^9, 3.450423664578125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"dd", "=", 
   RowBox[{"GetInner", "[", 
    RowBox[{"divd", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], ",", 
      RowBox[{"ghost", "-", "1"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4284030783796*^9, 3.4284030811926003`*^9}, {
  3.429428731342*^9, 3.429428731451*^9}}],

Cell[BoxData[
 RowBox[{"ListContourPlot", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Cut3D", "[", 
     RowBox[{"dd", ",", "2", ",", 
      RowBox[{"ghost", "+", "10"}]}], "]"}], "\[Transpose]"], ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "GrayLevel"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4280838057860003`*^9, 3.428083849041*^9}, {
   3.4280842408389997`*^9, 3.428084242609*^9}, {3.428084431198*^9, 
   3.428084431594*^9}, {3.428084482738*^9, 3.428084493719*^9}, {
   3.428084607935*^9, 3.428084608657*^9}, {3.428085016962*^9, 
   3.4280850395299997`*^9}, {3.42808508499*^9, 3.428085175105*^9}, {
   3.4294225222720003`*^9, 3.429422543605*^9}, {3.429428613608*^9, 
   3.429428623435*^9}, 3.447960685238875*^9}],

Cell[BoxData[
 RowBox[{"Max", "[", 
  RowBox[{"Abs", "[", 
   RowBox[{"GetInner", "[", 
    RowBox[{"divd", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], ",", "ghost"}], "]"}], 
    "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.429428754208*^9, 3.4294287546359997`*^9}, {
  3.431413380398097*^9, 3.431413380603097*^9}}],

Cell[BoxData[
 RowBox[{"Max", "@", 
  RowBox[{"Abs", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"#", "-", 
       RowBox[{"Reverse", "[", "#", "]"}]}], ")"}], "&"}], "@", 
    RowBox[{"Transpose", "[", 
     RowBox[{"Cut3D", "[", 
      RowBox[{"vy", ",", "2", ",", "5"}], "]"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.42805601703125*^9, 3.42805608703125*^9}}],

Cell[BoxData[
 RowBox[{"ListDensityPlot", "[", 
  RowBox[{
   RowBox[{"Cut3D", "[", 
    RowBox[{"vy", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4457102286258*^9, 3.4457102827734003`*^9}, {
  3.4457103560466003`*^9, 3.4457103664518003`*^9}, {3.4457112491154003`*^9, 
  3.445711255683*^9}, {3.45025451434375*^9, 3.450254520859375*^9}, {
  3.450254552875*^9, 3.45025460625*^9}, {3.450254651*^9, 3.45025471740625*^9}}
  ],

Cell[BoxData[
 RowBox[{"Show2x", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ListPlot3D", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"Cut3D", "[", 
        RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"DisplayFunction", "->", "Identity"}]}], "]"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{"vx", ",", "vy", ",", "vz", ",", "p"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.416840783369*^9, 3.416840786424*^9}, {
   3.4197708704519997`*^9, 3.4197709052279997`*^9}, {3.4209523000109997`*^9, 
   3.420952329116*^9}, 3.424765342757*^9, {3.4265611055547867`*^9, 
   3.4265611300177865`*^9}, {3.427435383951*^9, 3.427435386836*^9}, {
   3.427435651842*^9, 3.427435658273*^9}, {3.42760227909375*^9, 
   3.42760230140625*^9}, {3.427607074078125*^9, 3.427607075234375*^9}, {
   3.428054654546875*^9, 3.428054655765625*^9}, {3.428055991109375*^9, 
   3.428055993796875*^9}, {3.4280560990625*^9, 3.42805609934375*^9}, 
   3.4280569375*^9, {3.431931824906*^9, 3.431931825526*^9}, {
   3.4319650404379997`*^9, 3.431965044928*^9}, {3.432623473984375*^9, 
   3.432623476484375*^9}, {3.432633498921875*^9, 3.43263358703125*^9}, 
   3.43383397946875*^9, {3.445707706116*^9, 3.4457077083624*^9}, {
   3.4457080636577997`*^9, 3.4457080690086*^9}, {3.4457089482869997`*^9, 
   3.4457089601118*^9}, {3.4457090480022*^9, 3.4457090569877996`*^9}, {
   3.4457095880274*^9, 3.445709588199*^9}, 3.445709878281*^9, 
   3.4457099113842*^9, 3.4457100705978003`*^9, {3.4457101189421997`*^9, 
   3.445710143403*^9}, {3.450257801703125*^9, 3.450257813375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{
   RowBox[{"WithoutFict", "[", 
    RowBox[{"Max", "/@", 
     RowBox[{"(", 
      RowBox[{"Flatten", "/@", 
       SuperscriptBox["vz", "\[Transpose]"]}], ")"}]}], "]"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.445709123163*^9, 3.4457091717414*^9}, {
   3.4457094185958*^9, 3.4457094526661997`*^9}, {3.4457097049494*^9, 
   3.445709735385*^9}, {3.4457101557581997`*^9, 3.4457101638234*^9}, 
   3.4479607382545*^9, {3.4502542269375*^9, 3.45025422759375*^9}, 
   3.450254414515625*^9, {3.450254446390625*^9, 3.450254481046875*^9}, {
   3.4502577740625*^9, 3.450257778546875*^9}, {3.450257896875*^9, 
   3.45025790375*^9}, {3.45042368325*^9, 3.45042368409375*^9}, {
   3.454146305453125*^9, 3.4541463074375*^9}, {3.4599342620598*^9, 
   3.459934280889*^9}, {3.4600207700123997`*^9, 3.4600207801836*^9}, {
   3.4625094327041903`*^9, 3.4625094598941903`*^9}, {3.4625181517301903`*^9, 
   3.4625181518551903`*^9}, {3.463220537140625*^9, 3.46322054146875*^9}, {
   3.463221077*^9, 3.463221077125*^9}, {3.4632845105*^9, 
   3.463284511171875*^9}, {3.46371482546875*^9, 3.463714864390625*^9}, 
   3.463714949890625*^9, {3.46371500909375*^9, 3.463715013484375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw10n8s1HEcx/Evzo9I00o/LKVSkUJ+5Bzy8uu4405j6NLdxmQ05fxIUuYs
k5u2rk7HpR+Epq2tkGz9gY2Z+fEHJ9OPybJUi9i0/IxqPu/P9tlnj8/zr89n
7/3JmTHnjTmOw7/9/9xYc4FdSXP6M3t5newCQzOGN3X89Y4NWiBlMy/51vtF
Zhu0uczIQ2rJ2/HbpN233meJeRcqvl2+eqiXvAeRMQuyxLhlZgc492sWlOPk
A2hWl/0aS15hdoRBbLNb+5l8GM+SEiaVqavMTrB18staniAfhbRb7N9z9g/z
MWQ31BhUo2RXjHvoW4ti15jdIXC+pjTrJZ+AmeCTJsOf3usB1/h9XY+byJ7o
zRuIfLGNY//jBa9m8wuvpWRv2Jue22GiJp+EN8ePb+8k+6BNOKVuXCTzMTim
WWpyN2L2hSJjVj6cRhZAETHcslZD9gNP6lXg8Y7sD31+rl3qVmPmAEhaw39U
isinMD/wYPqLihyIaoFu1qKNDFjJugUBM8wqwK5V3l180IT1IORN6SyHZcyq
IBQ8r7J11VAPht+Te0V3e6gHwyyztHJ9lXoI/O6k8XI82TypQiCuutQ2nU7z
FQqf2yvTGTXUQ1F3cWx5dpR6GBxfia4UWpuyHoYtDUbjb0OYOSHK1wO1sgLq
Qtwv1+obX1IPR9aku5vkK/VwPP2QXpFib8Z6BB66NSbeiGVWReD7z7Hq3DLq
IlR1ymalHdRFyC7JyRfOUxfjiHqmZdDFnHUxRoRBBgc5MxeJEuvykj499Ujk
z+myArqpR8HJVPtRaWXBehRSo/T1QkdmToJEzij0USl1CVwVvqPaLOpSJFwf
vllsu4l1KWoLNf18DfVo7Dwex1ufoB6N1ckhR4WY+mmIdLF2fSOWnX8BgDcq
7A==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1., -3.353901105571627},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.00\"", 1., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"5.00\"", 5., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.20\"", 0.2, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"2.00\"", 2., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.203972804325936, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.30\"", 0.30000000000000004`, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.0986122886681098`, 
       FormBox[
        TagBox[
         InterpretationBox["\"3.00\"", 3., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.897119984885881, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.15\"", 0.15000000000000002`, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.4054651081081644, 
       FormBox[
        TagBox[
         InterpretationBox["\"1.50\"", 1.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.3566749439387323, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.70\"", 0.7000000000000001, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.9459101490553132`, 
       FormBox[
        TagBox[
         InterpretationBox["\"7.00\"", 7., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.2072749131897207`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.120263536200091, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.040220828526554, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.9661128563728327`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.8170772772123447`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.7429693050586228`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6739764335716714`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.9162907318741551, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.09531017980432493, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.1823215567939548, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.26236426446749106`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.336472236621213, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.47000362924573563`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5306282510621705, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5877866649021191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6418538861723948, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm]}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm]}, {-1.897119984885881, 
       FormBox["\"\"", TraditionalForm]}, {0.4054651081081644, 
       FormBox["\"\"", TraditionalForm]}, {-0.3566749439387323, 
       FormBox["\"\"", TraditionalForm]}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm]}, {-2.2072749131897207`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.120263536200091, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.040220828526554, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.9661128563728327`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.8170772772123447`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.7429693050586228`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6739764335716714`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.9162907318741551, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.09531017980432493, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.1823215567939548, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.26236426446749106`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.336472236621213, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.47000362924573563`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5306282510621705, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5877866649021191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6418538861723948, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {Automatic, Automatic}},
  GridLines->{None, None},
  ImageSize->{597., Automatic},
  Method->{},
  PlotRange->{{1., 64.}, {-3.353901105571627, -1.5393708867074858`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, {{-2.3025850929940455`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0., 
      FormBox[
       TagBox[
        InterpretationBox["\"1.00\"", 1., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"5.00\"", 5., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.20\"", 0.2, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"2.00\"", 2., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.203972804325936, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.30\"", 0.30000000000000004`, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.0986122886681098`, 
      FormBox[
       TagBox[
        InterpretationBox["\"3.00\"", 3., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.897119984885881, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.15\"", 0.15000000000000002`, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.4054651081081644, 
      FormBox[
       TagBox[
        InterpretationBox["\"1.50\"", 1.5, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.3566749439387323, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.70\"", 0.7000000000000001, AutoDelete -> True],
         NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.9459101490553132`, 
      FormBox[
       TagBox[
        InterpretationBox["\"7.00\"", 7., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.2072749131897207`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.120263536200091, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.040220828526554, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.9661128563728327`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.8170772772123447`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.7429693050586228`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6739764335716714`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.9162907318741551, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659907, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782628`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.09531017980432493, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.1823215567939548, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.26236426446749106`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.336472236621213, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.47000362924573563`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.5306282510621705, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.5877866649021191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.6418538861723948, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{{3.46371482365625*^9, 3.46371486525*^9}, 
   3.46371495075*^9, {3.463715009296875*^9, 3.463715013671875*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"dif", "[", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"WithoutFict", "/@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
        "coor", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", 
        RowBox[{"Max", "/@", 
         RowBox[{"(", 
          RowBox[{"Flatten", "/@", 
           SuperscriptBox["vx", "\[Transpose]"]}], ")"}]}]}], "}"}]}], ")"}], 
    "\[Transpose]"], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.461307880302*^9, 3.461307885525*^9}, {
   3.4613079629119997`*^9, 3.461308107284*^9}, 3.4613082237349997`*^9, {
   3.461308330898*^9, 3.461308331217*^9}, {3.4613093484440002`*^9, 
   3.4613093489049997`*^9}, {3.461309388251*^9, 3.461309423861*^9}, {
   3.46131097877*^9, 3.4613109791800003`*^9}, {3.463714783296875*^9, 
   3.4637148195625*^9}}],

Cell[BoxData[
 RowBox[{"ListContourPlot", "[", 
  RowBox[{
   RowBox[{"vx", "\[LeftDoubleBracket]", 
    RowBox[{
     RowBox[{"10", ";;", "15"}], ",", "20", ",", 
     RowBox[{"10", ";;", "20"}]}], "\[RightDoubleBracket]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4265570638387866`*^9, 3.4265570722607865`*^9}, {
  3.426560647038787*^9, 3.4265606471737866`*^9}, {3.4280484310880003`*^9, 
  3.4280484323780003`*^9}, {3.428386295271*^9, 3.42838630352*^9}}],

Cell[BoxData[
 RowBox[{"ListContourPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"WithoutFict", "@", 
     SuperscriptBox[
      RowBox[{"Cut3D", "[", 
       RowBox[{"p", ",", "1", ",", "8"}], "]"}], "\[Transpose]"]}], "/.", 
    RowBox[{"{", 
     RowBox[{"0", "\[Rule]", "1"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "None"}], ",", 
   RowBox[{"ContourLabels", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4246801900950003`*^9, 3.424680197031*^9}, {
   3.424680261828*^9, 3.424680281124*^9}, {3.424758968034*^9, 
   3.42475902141*^9}, {3.427601046078125*^9, 3.427601055125*^9}, 
   3.42760200940625*^9, {3.427602186890625*^9, 3.427602191828125*^9}, {
   3.427602270140625*^9, 3.427602270734375*^9}, {3.4276024923125*^9, 
   3.42760250353125*^9}, {3.42762394559375*^9, 3.42762404015625*^9}, {
   3.427624071328125*^9, 3.42762409015625*^9}, {3.427624148578125*^9, 
   3.4276242034375*^9}, {3.42762568125*^9, 3.427625683296875*^9}, {
   3.428053221453125*^9, 3.428053222890625*^9}, {3.42805326703125*^9, 
   3.42805326865625*^9}, {3.428053582*^9, 3.428053643828125*^9}, {
   3.428053898125*^9, 3.428053914625*^9}, {3.428054339609375*^9, 
   3.428054341734375*^9}, {3.428054430171875*^9, 3.428054494390625*^9}, {
   3.428054689421875*^9, 3.4280546969375*^9}, {3.428054891*^9, 
   3.4280548971875*^9}, {3.428055968125*^9, 3.42805597334375*^9}, {
   3.428056113015625*^9, 3.4280561313125*^9}, {3.4280562675*^9, 
   3.42805628865625*^9}, {3.428056404578125*^9, 3.428056404703125*^9}, {
   3.42805695153125*^9, 3.42805698628125*^9}, {3.428057042578125*^9, 
   3.4280570844375*^9}, {3.42805723184375*^9, 3.428057236625*^9}, {
   3.428057483578125*^9, 3.428057486765625*^9}, {3.428057522203125*^9, 
   3.428057534546875*^9}, {3.4282200619375*^9, 3.4282200930625*^9}, {
   3.428220150171875*^9, 3.42822020159375*^9}, {3.428989618*^9, 
   3.428989641359375*^9}, {3.428989852828125*^9, 3.4289898539375*^9}, {
   3.428991610421875*^9, 3.428991622921875*^9}, {3.429005699234375*^9, 
   3.429005719546875*^9}, {3.429005792296875*^9, 3.429005865859375*^9}, {
   3.42900599465625*^9, 3.429005999203125*^9}, 3.42959822865625*^9, {
   3.42959847378125*^9, 3.4295984753125*^9}, {3.429609688703125*^9, 
   3.429609689109375*^9}, {3.429609725859375*^9, 3.42960979159375*^9}, {
   3.429609882640625*^9, 3.429609896765625*^9}, {3.43228886309375*^9, 
   3.43228888453125*^9}, 3.4322889251875*^9, {3.432289227984375*^9, 
   3.43228925809375*^9}, {3.432289298296875*^9, 3.432289304921875*^9}, {
   3.432289343171875*^9, 3.432289350234375*^9}, {3.432289420171875*^9, 
   3.43228943078125*^9}, 3.4326234959375*^9, {3.432623527171875*^9, 
   3.432623546765625*^9}, {3.4332359620625*^9, 3.43323596309375*^9}, {
   3.43323695671875*^9, 3.433236957875*^9}, {3.434091391859375*^9, 
   3.434091392203125*^9}, {3.4457089865694*^9, 3.4457089980822*^9}, {
   3.4457092470582*^9, 3.4457092849194*^9}, {3.4457093201286*^9, 
   3.4457093207214003`*^9}, {3.4457097951954*^9, 3.4457098116846*^9}, {
   3.4457099432237997`*^9, 3.4457099454234*^9}}],

Cell[BoxData[
 RowBox[{"ListPlot3D", "[", 
  RowBox[{
   RowBox[{"Cut3D", "[", 
    RowBox[{
     RowBox[{"GetInner", "@", "vy"}], ",", "2", ",", "67"}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4322889408125*^9, 3.4322889909375*^9}, {
   3.43228904084375*^9, 3.432289100125*^9}, 3.432289269265625*^9, 
   3.432289374078125*^9, {3.43228947421875*^9, 3.432289542515625*^9}, {
   3.43228957753125*^9, 3.43228967221875*^9}, {3.432289928796875*^9, 
   3.432289960328125*^9}, {3.43229005559375*^9, 3.432290075015625*^9}, {
   3.4325374861707497`*^9, 3.4325374863269997`*^9}}],

Cell[BoxData[
 RowBox[{"ListContourPlot", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Cut3D", "[", 
     RowBox[{
      RowBox[{"GetInner", "@", "vy"}], ",", "2", ",", 
      RowBox[{"ghost", "+", "2"}]}], "]"}], "\[Transpose]"], ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "1"}], ",", 
   RowBox[{"Contours", "\[Rule]", "20"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4246801900950003`*^9, 3.424680197031*^9}, {
   3.424680261828*^9, 3.424680281124*^9}, {3.424758968034*^9, 
   3.42475902141*^9}, {3.4265550710397863`*^9, 3.426555071566787*^9}, {
   3.4265551710767865`*^9, 3.4265551719007864`*^9}, {3.426556376946787*^9, 
   3.4265563771057863`*^9}, {3.4265568249507866`*^9, 
   3.4265568300047865`*^9}, {3.426556877736787*^9, 3.4265568839847865`*^9}, {
   3.426557032788787*^9, 3.4265570628907866`*^9}, {3.426560033498787*^9, 
   3.4265600336297865`*^9}, {3.4265606046507864`*^9, 
   3.4265606298677864`*^9}, {3.4280484460620003`*^9, 3.428048472775*^9}, {
   3.428051058333*^9, 3.428051082777*^9}, {3.428055248427*^9, 
   3.428055248524*^9}, {3.428055307939*^9, 3.428055354616*^9}, {
   3.428055396184*^9, 3.4280554128450003`*^9}, {3.428055520793*^9, 
   3.428055543783*^9}, 3.4280565973789997`*^9, {3.428056628267*^9, 
   3.4280566611099997`*^9}, {3.42829946710005*^9, 3.42829947565405*^9}, {
   3.42830014162905*^9, 3.4283001493300495`*^9}, {3.4283864730587997`*^9, 
   3.4283866162980003`*^9}, {3.4283974313216*^9, 3.4283974591076*^9}, {
   3.4283976271106*^9, 3.4283976598046*^9}, {3.4284010950726*^9, 
   3.4284010973246*^9}, {3.4284018415446*^9, 3.4284018509816*^9}, {
   3.4284030841626*^9, 3.4284030850446*^9}, {3.428586695344*^9, 
   3.4285866957679996`*^9}, {3.429417059781*^9, 3.429417079047*^9}, 
   3.4294176738529997`*^9, {3.4294252018120003`*^9, 3.429425248233*^9}, {
   3.4294254639110003`*^9, 3.429425464436*^9}, 3.4294259064300003`*^9, {
   3.429428473958*^9, 3.4294285596289997`*^9}, 3.42943093434*^9, {
   3.432288793140625*^9, 3.4322888418125*^9}, 3.4322895569375*^9, {
   3.432290017484375*^9, 3.432290043828125*^9}, {3.4326194169375*^9, 
   3.43261947128125*^9}, {3.434091412859375*^9, 3.43409143875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "DrawSection", "]"}]], "Input",
 CellChangeTimes->{{3.4247548996689997`*^9, 3.424754906008*^9}, {
  3.42822179834375*^9, 3.428221799515625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"PointOfSections", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1.2566370614359172`", ",", 
      RowBox[{"0.1`", "\[InvisibleSpace]", "+", 
       RowBox[{"Mean", "[", 
        RowBox[{
        "bounds", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
        "]"}]}], ",", 
      RowBox[{"Mean", "[", 
       RowBox[{
       "bounds", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
       "]"}]}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Hue", "[", 
       FractionBox["#1", "1.5`"], "]"}], "&"}], ")"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"OnlySection", "\[Rule]", "False"}]}], "}"}]], "Output",
 CellChangeTimes->{3.424754906658*^9, 3.428221799765625*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{"<<", "ACPackages`ACGraphics`"}]], "Input",
 CellChangeTimes->{{3.454136111015625*^9, 3.454136119609375*^9}}],

Cell[BoxData[
 RowBox[{"DrawSection", "[", 
  RowBox[{
   RowBox[{"WithoutFict", "@", "vx"}], ",", 
   RowBox[{"WithoutFict", "@", "vy"}], ",", 
   RowBox[{"WithoutFict", "@", "vz"}], ",", 
   RowBox[{"PointOfSections", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"4.5", ",", "0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"OnlySection", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4265551001737866`*^9, 3.426555117498787*^9}, {
   3.426557121887787*^9, 3.4265571226487865`*^9}, 3.4273922430369997`*^9, {
   3.427393010527*^9, 3.427393010539*^9}, {3.42739407074*^9, 
   3.427394082266*^9}, {3.4273941668859997`*^9, 3.427394187527*^9}, {
   3.4273949422060003`*^9, 3.427394942752*^9}, {3.427435319078*^9, 
   3.42743532163*^9}, 3.4274355178789997`*^9, {3.427436860208*^9, 
   3.427436860426*^9}, {3.428048357204*^9, 3.4280483578719997`*^9}, 
   3.428048392849*^9, {3.428052043336*^9, 3.428052050212*^9}, {
   3.428055169981*^9, 3.428055172449*^9}, 3.428055223926*^9, {
   3.428056570344*^9, 3.428056580255*^9}, 3.429425285977*^9, {
   3.4294279857720003`*^9, 3.429427986481*^9}, 3.429428412935*^9, {
   3.432308973065*^9, 3.432308973742*^9}, 3.433444504176*^9, {
   3.4335142828719997`*^9, 3.433514283348*^9}, 3.4470652865958*^9, 
   3.454143452203125*^9, 3.454143482921875*^9, {3.454144864234375*^9, 
   3.45414486465625*^9}, {3.454146358921875*^9, 3.454146384515625*^9}, {
   3.4541475306875*^9, 3.45414753078125*^9}, {3.454148487359375*^9, 
   3.45414849625*^9}, {3.4599358137024*^9, 3.4599358142483997`*^9}, 
   3.459935850144*^9, 3.460352404969*^9, 3.461311143264*^9, {
   3.4613112677790003`*^9, 3.461311268176*^9}, 3.4625181245631905`*^9, {
   3.463221033671875*^9, 3.4632210346875*^9}, 3.463287262546875*^9, {
   3.4632872973125*^9, 3.463287411765625*^9}, 3.4671030698518*^9, {
   3.4671031016708*^9, 3.4671031361478*^9}, {3.4671032238218*^9, 
   3.4671032554807997`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"grs", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"DrawSection", "[", 
      RowBox[{"vx", ",", "vy", ",", "vz", ",", 
       RowBox[{"PointOfSections", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"i", ",", "0.", ",", "0."}], "}"}]}], ",", 
       RowBox[{"OnlySection", "\[Rule]", "True"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", 
       RowBox[{"2", "\[Pi]"}], ",", 
       FractionBox["\[Pi]", "10"]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.424755040001*^9, 3.424755051725*^9}, {3.424755247084*^9,
    3.4247552475880003`*^9}, {3.424756024422*^9, 3.424756035683*^9}, 
   3.42475609291*^9, {3.4247608678050003`*^9, 3.4247608716219997`*^9}, {
   3.424765397559*^9, 3.424765399764*^9}, {3.424765519883*^9, 
   3.424765524458*^9}, 3.4247660584969997`*^9, {3.4247661264230003`*^9, 
   3.4247661412799997`*^9}, 3.424766236133*^9, {3.4247662690550003`*^9, 
   3.4247663506099997`*^9}}],

Cell[BoxData[
 RowBox[{"ListAnimate", "[", "grs", "]"}]], "Input",
 CellChangeTimes->{{3.463911761859375*^9, 3.46391176428125*^9}}],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"Max", "/@", 
   RowBox[{"Flatten", "/@", 
    RowBox[{"WithoutFict", "@", 
     SuperscriptBox["vy", "\[Transpose]"]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.434091565140625*^9, 3.43409157840625*^9}, {
  3.4340916166875*^9, 3.43409164390625*^9}, {3.454063645828125*^9, 
  3.45406365134375*^9}}],

Cell[BoxData[
 RowBox[{"ListStreamPlot", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Cut3D", "[", 
       RowBox[{"#", ",", "2", ",", 
        RowBox[{"ghost", "+", "20"}]}], "]"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{"vx", ",", "vz"}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "1", ",", "2"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.44834522590625*^9, 3.44834522765625*^9}, {
   3.450251889484375*^9, 3.450251901890625*^9}, {3.454146846546875*^9, 
   3.4541468936875*^9}, {3.4541470470625*^9, 3.454147092*^9}, {
   3.454147596078125*^9, 3.454147616796875*^9}, {3.454148577296875*^9, 
   3.4541486055625*^9}, {3.454150785359375*^9, 3.45415080521875*^9}, 
   3.4541510314375*^9, {3.45440023684375*^9, 3.454400242265625*^9}, {
   3.46078543421875*^9, 3.46078545653125*^9}, {3.460785529546875*^9, 
   3.460785579125*^9}, 3.46114893278125*^9, {3.461314379046875*^9, 
   3.46131437915625*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ListStreamPlot", "[", 
    RowBox[{"Transpose", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"GetInner", "[", 
         RowBox[{"Cut3D", "[", 
          RowBox[{"#", ",", "2", ",", "ny"}], "]"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{"vx", ",", "vz"}], "}"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"ny", ",", "1", ",", 
     RowBox[{
      RowBox[{"Dimensions", "[", "vx", "]"}], "\[LeftDoubleBracket]", "2", 
      "\[RightDoubleBracket]"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.445844613203125*^9, 3.445844667625*^9}, {
  3.448262284334875*^9, 3.448262303663*^9}, {3.45042388640625*^9, 
  3.4504238925*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"vyshift", "=", 
   RowBox[{"dif", "@", 
    RowBox[{"Transpose", "[", 
     RowBox[{"WithoutFict", "/@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
        "coor", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
        RowBox[{"vy", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"\[LeftFloor]", 
            FractionBox[
             RowBox[{"Length", "[", 
              SuperscriptBox["vy", "\[Transpose]"], "]"}], "2"], 
            "\[RightFloor]"}], ",", 
           RowBox[{"\[LeftFloor]", 
            FractionBox[
             RowBox[{"Length", "[", 
              SuperscriptBox["vy", "\[Transpose]"], "]"}], "2"], 
            "\[RightFloor]"}]}], "]"}], "]"}]}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"PrintRange", "[", "vyshift", "]"}], "\[IndentingNewLine]", 
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Interpolation", "[", "vyshift", "]"}], "[", "r", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", 
     RowBox[{"-", "0.2"}], ",", "0.2"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.424755756023*^9, 3.424755822422*^9}, 
   3.428049153723*^9, {3.4294259784960003`*^9, 3.429425980506*^9}, {
   3.429426018649*^9, 3.429426052752*^9}, {3.429429642683*^9, 
   3.4294296726029997`*^9}}],

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"nyz", "=", "35"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"PrintRange", "[", 
      RowBox[{"vy", "\[LeftDoubleBracket]", 
       RowBox[{"nyz", ",", "All", ",", "nyz"}], "\[RightDoubleBracket]"}], 
      "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PrintRange", "[", 
      RowBox[{"p", "\[LeftDoubleBracket]", 
       RowBox[{"nyz", ",", "All", ",", "nyz"}], "\[RightDoubleBracket]"}], 
      "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.424680140675*^9, 3.424680146051*^9}, {
  3.4247556846400003`*^9, 3.4247557064820004`*^9}, {3.4247558425950003`*^9, 
  3.424755904054*^9}, {3.424755958201*^9, 3.42475596424*^9}, {
  3.427624471296875*^9, 3.4276244740625*^9}, {3.431684099609375*^9, 
  3.431684101578125*^9}, {3.4325301981394997`*^9, 3.4325302154832497`*^9}, {
  3.433487594015625*^9, 3.433487620765625*^9}, {3.434091510203125*^9, 
  3.434091535578125*^9}, {3.434092751640625*^9, 3.434092751796875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0420\:0430\:0437\:043d\:043e\:0435", "Subsection",
 CellChangeTimes->{{3.462511057890625*^9, 3.462511059875*^9}, {
   3.4630846981875*^9, 3.4630846984375*^9}, 3.463221052171875*^9, 
   3.463287143125*^9, 3.463287280859375*^9, 3.46346134746875*^9, 
   3.46371509275*^9, {3.4639008413125*^9, 3.46390084565625*^9}, {
   3.46391191490625*^9, 3.46391191775*^9}, {3.463912052765625*^9, 
   3.4639120576875*^9}, {3.4639121195*^9, 3.4639121224375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"mvx", ",", "mvy", ",", "mvz"}], "}"}], "=", 
  RowBox[{"Max", "/@", 
   RowBox[{"{", 
    RowBox[{"vxs", ",", "vys", ",", "vzs"}], "}"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0.99951`", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{
  3.3921096044639997`*^9, 3.392110387665*^9, 3.392123434784*^9, 
   3.3922074107980003`*^9, 3.392212977236*^9, 3.392214146424*^9, 
   3.392214344686*^9, 3.39221440172, 3.392215583488*^9, 3.392225445929*^9, 
   3.393738198216*^9, 3.393745057986*^9, 3.4199173873199997`*^9, {
   3.419919495367*^9, 3.419919510539*^9}, 3.4199222131400003`*^9, Null, 
   419922814703000000000, 3.42095176083*^9, 3.420952494547*^9, 
   3.424754827362*^9, 3.424765163883*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"kappa", "=", "0.25"}], ";"}]], "Input",
 CellChangeTimes->{{3.420952519382*^9, 3.420952521192*^9}}],

Cell[CellGroupData[{

Cell["\:0420\:0430\:0437\:043d\:044b\:0435 \:044d\:043d\:0435\:0440\:0433\
\:0435\:0442\:0438\:0447\:0435\:0441\:043a\:0438\:0435 \:0432\:0435\:043b\
\:0438\:0447\:0438\:043d\:044b", "Subsubsection",
 CellChangeTimes->{{3.420958537083*^9, 3.420958544152*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Nest", "[", 
      RowBox[{"Total", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           RowBox[{"coor", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "kappa"}]}], ")"}], 
        SuperscriptBox["#", "2"]}], ",", "3"}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"vxs", ",", "vys", ",", "vzs"}], "}"}]}], ")"}], 
  FractionBox[
   RowBox[{"Times", "@@", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Last", "[", "#", "]"}], "-", 
        RowBox[{"First", "[", "#", "]"}]}], "&"}], "/@", "coor"}], ")"}]}], 
   RowBox[{"Times", "@@", 
    RowBox[{"Dimensions", "[", "vxs", "]"}]}]]}]], "Input",
 CellChangeTimes->{{3.420952524861*^9, 3.420952527816*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.000133310922024563`", ",", "1.911187803244831`", ",", 
   "0.00004457236828554551`"}], "}"}]], "Output",
 CellChangeTimes->{3.392109741186*^9, 3.392110391534*^9, 3.392123437983*^9, 
  3.42095249579*^9, 3.420952530618*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"Evx", ",", "Evy", ",", "Evz"}], "}"}], "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Nest", "[", 
       RowBox[{"Total", ",", 
        RowBox[{"WithoutFict", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             RowBox[{"coor", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "kappa"}]}], ")"}], 
          SuperscriptBox["#", "2"]}], "]"}], ",", "3"}], "]"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{"vxs", ",", "vys", ",", "vzs"}], "}"}]}], ")"}], 
   FractionBox[
    RowBox[{"Times", "@@", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Last", "[", "#", "]"}], "-", 
         RowBox[{"First", "[", "#", "]"}]}], "&"}], "/@", 
       RowBox[{"WithoutFict", "/@", "coor"}]}], ")"}]}], 
    RowBox[{"Times", "@@", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Dimensions", "[", "vxs", "]"}], "-", 
       RowBox[{"2", "ghost"}]}], ")"}]}]]}]}]], "Input",
 CellChangeTimes->{3.420952538791*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.000049143734963112465`", ",", "0.7045402894333458`", ",", 
   "0.000016431157452739434`"}], "}"}]], "Output",
 CellChangeTimes->{3.392212980684*^9, 3.392214103752*^9, 
  3.3922143504630003`*^9, 3.3922144047130003`*^9, 3.3922155964309998`*^9, 
  3.392225447127*^9, 3.393738203074*^9, 3.393745059266*^9, 
  3.4199173954709997`*^9, 3.4209524966800003`*^9, 3.420952539388*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SqrtBox[
    RowBox[{"Mean", "[", 
     RowBox[{"Flatten", "[", 
      RowBox[{"WithoutFict", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           RowBox[{"coor", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "kappa"}]}], ")"}], 
        SuperscriptBox["#", "2"]}], "]"}], "]"}], "]"}]], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{"vxs", ",", "vys", ",", "vzs"}], "}"}]}]], "Input",
 CellChangeTimes->{3.420953986448*^9, 3.42095456149*^9, 3.420958506477*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.004354282293481239`", ",", "0.521357251094715`", ",", 
   "0.0025177730469655153`"}], "}"}]], "Output",
 CellChangeTimes->{3.42095398691*^9, 3.420954561943*^9, 
  3.4209585071879997`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SqrtBox[
    RowBox[{"Mean", "[", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"WithoutFict", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             RowBox[{"coor", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "kappa"}]}], ")"}], 
          SuperscriptBox["#", "2"]}], "]"}], "]"}], ",", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"#", ">", "0"}], "&"}], ")"}]}], "]"}], "]"}]], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{"vxs", ",", "vys", ",", "vzs"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.4209527345550003`*^9, 3.420952735984*^9}, {
  3.420953760479*^9, 3.420953822822*^9}, {3.420954545078*^9, 
  3.420954554606*^9}}],

Cell[BoxData[
 RowBox[{"\[Sqrt]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Total", "[", 
       RowBox[{"Flatten", "[", 
        RowBox[{"WithoutFict", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             RowBox[{"coor", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "kappa"}]}], ")"}], 
          SuperscriptBox["#", "2"]}], "]"}], "]"}], "]"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{"vxs", ",", "vys", ",", "vzs"}], "}"}]}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Total", "[", 
       RowBox[{"Flatten", "[", 
        FractionBox[
         RowBox[{"node", "/.", 
          RowBox[{"b_", ":>", 
           RowBox[{"0", "/;", 
            RowBox[{"b", "\[NotEqual]", "8"}]}]}]}], "8"], "]"}], "]"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "vxs", "]"}], "\[LeftDoubleBracket]", "2",
          "\[RightDoubleBracket]"}], "-", 
        RowBox[{"2", "ghost"}]}], ")"}]}], ")"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.41991770458*^9, 3.4199177402390003`*^9}, {
   3.419917850207*^9, 3.419917877491*^9}, {3.419917907525*^9, 
   3.4199179102390003`*^9}, 3.419918082788*^9, {3.419918527793*^9, 
   3.419918536042*^9}, {3.420952545637*^9, 3.4209525595030003`*^9}, 
   3.420953799432*^9, 3.420958570801*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"qvx", ",", "qvy", ",", "qvz"}], "}"}], "=", 
  RowBox[{"\[Sqrt]", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"Flatten", "[", 
         RowBox[{"WithoutFict", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              RowBox[{"coor", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "kappa"}]}], ")"}], 
           SuperscriptBox["#", "2"]}], "]"}], "]"}], "]"}], "&"}], "/@", 
      RowBox[{"{", 
       RowBox[{"vxs", ",", "vys", ",", "vzs"}], "}"}]}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"Flatten", "[", 
         FractionBox[
          RowBox[{"node", "/.", 
           RowBox[{"b_", ":>", 
            RowBox[{"0", "/;", 
             RowBox[{"b", "\[NotEqual]", "8"}]}]}]}], "8"], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Dimensions", "[", "vxs", "]"}], "\[LeftDoubleBracket]", 
          "2", "\[RightDoubleBracket]"}], "-", 
         RowBox[{"2", "ghost"}]}], ")"}]}], ")"}]}], ")"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ps", "=", 
   RowBox[{
    FractionBox[
     RowBox[{"node", "/.", 
      RowBox[{"b_", ":>", 
       RowBox[{"0", "/;", 
        RowBox[{"b", "\[NotEqual]", "8"}]}]}]}], "8"], 
    RowBox[{"(", 
     RowBox[{"ps", "-", 
      RowBox[{"Mean", "[", 
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", "ps", "]"}], ",", 
         RowBox[{
          RowBox[{"#", "\[NotEqual]", "0"}], "&"}]}], "]"}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"vys", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"node", "/.", 
        RowBox[{"b_", ":>", 
         RowBox[{"0", "/;", 
          RowBox[{"b", "\[NotEqual]", "8"}]}]}]}], "8"], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "&"}], "/@", "vy"}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"ghost", "+", "1"}], ",", 
       RowBox[{"n2", "+", "ghost"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintRange", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Mean", "[", 
      RowBox[{"Mean", "[", "#", "]"}], "]"}], "&"}], "/@", "vys"}], "]"}], 
  ";"}]}], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"SectionRZ", "[", 
     RowBox[{"\[Pi]", " ", 
      FractionBox["i", "100"]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "10", ",", "200"}], "}"}]}], "]"}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell["SectionAverage", "Subsubsection",
 CellChangeTimes->{{3.392108006773*^9, 3.3921080097200003`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListDensityPlot", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"SectionAverage", "[", 
    RowBox[{"vx", ",", "2", ",", 
     RowBox[{"ShowDeviation", "\[Rule]", "True"}], ",", 
     RowBox[{"DeviationNorm", "\[Rule]", "0"}]}], "]"}], "]"}], 
  "]"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0", "\[InvisibleSpace]", "\<\"-norm of arrays deviation=\"\>", 
   "\[InvisibleSpace]", "8.181818181838586`*^-9"}],
  SequenceForm[0, "-norm of arrays deviation=", 8.181818181838586*^-9],
  Editable->False]], "Print",
 CellChangeTimes->{3.392213117648*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"WithoutFict", "[", 
   RowBox[{
    RowBox[{"SectionAverage", "[", 
     RowBox[{"vz", ",", "2", ",", 
      RowBox[{"ShowDeviation", "\[Rule]", "True"}], ",", 
      RowBox[{"DeviationNorm", "\[Rule]", "0"}]}], "]"}], "[", 
    RowBox[{"[", "67", "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{3.392213131791*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Max", "[", "#", "]"}], ",", 
     RowBox[{"Min", "[", "#", "]"}]}], "}"}], "&"}], "[", 
  RowBox[{
   RowBox[{"SectionAverage", "[", 
    RowBox[{"vx", ",", "2"}], "]"}], "[", 
   RowBox[{"[", "34", "]"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0018038`", ",", 
   RowBox[{"-", "0.0013536`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.392213143689*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot3D", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"SectionAverage", "[", 
    RowBox[{"vx", ",", "2", ",", 
     RowBox[{"ShowDeviation", "\[Rule]", "True"}], ",", 
     RowBox[{"DeviationNorm", "\[Rule]", "0"}]}], "]"}], "]"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"profil", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"SectionAverage", "[", 
      RowBox[{"vy", ",", "2"}], "]"}], "\[LeftDoubleBracket]", "34", 
     "\[RightDoubleBracket]"}], "//", "WithoutFict"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "[", 
  RowBox[{
   RowBox[{"Max", "[", "profil", "]"}], 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["30", 
      SuperscriptBox["5.5", "2"]], ")"}], 
    RowBox[{"-", "1"}]], 
   RowBox[{"Table", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"i", 
       RowBox[{"(", 
        RowBox[{"11", "-", "i"}], ")"}]}], 
      SuperscriptBox["5.5", "2"]], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "10"}], "}"}]}], "]"}]}], "]"}]], "Input"],

Cell[BoxData["0.3298266666666667`"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "[", "profil", "]"}]], "Input"],

Cell[BoxData["0.03274200000000002`"], "Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintRange", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"dif", "[", "profil", "]"}], 
       SuperscriptBox["15", "2"]}], "//", "dif"}], ")"}], "+", "0.5"}], "]"}],
   ";"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"PrintRange", "[", 
   RowBox[{"(", "profil", ")"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintRange", "[", 
   RowBox[{
    RowBox[{"Max", "[", "profil", "]"}], 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["30", 
       SuperscriptBox["5.5", "2"]], ")"}], 
     RowBox[{"-", "1"}]], 
    RowBox[{"Table", "[", 
     RowBox[{
      FractionBox[
       RowBox[{"i", 
        RowBox[{"(", 
         RowBox[{"11", "-", "i"}], ")"}]}], 
       SuperscriptBox["5.5", "2"]], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "10"}], "}"}]}], "]"}]}], "]"}], ";"}]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Options", "[", "SectionAverage", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ShowDeviation", "\[Rule]", "False"}], ",", 
     RowBox[{"DeviationNorm", "\[Rule]", "0"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SectionAverage", "[", 
    RowBox[{"mat_", ",", 
     RowBox[{"dir_", ":", "2"}], ",", "opts___"}], "]"}], ":=", 
   RowBox[{"Block", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"transp", "=", 
        RowBox[{"Transpose", "[", 
         RowBox[{"mat", ",", 
          RowBox[{"Insert", "[", 
           RowBox[{
            RowBox[{"Rest", "[", 
             RowBox[{"Range", "[", 
              RowBox[{
               RowBox[{"Depth", "[", "mat", "]"}], "-", "1"}], "]"}], "]"}], 
            ",", "1", ",", "dir"}], "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", "aver", ",", "\[IndentingNewLine]", 
       RowBox[{"showdisp", "=", 
        RowBox[{
         RowBox[{"ShowDeviation", "/.", 
          RowBox[{"{", "opts", "}"}]}], "/.", 
         RowBox[{"Options", "[", "SectionAverage", "]"}]}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"dispord", "=", 
        RowBox[{
         RowBox[{"DeviationNorm", "/.", 
          RowBox[{"{", "opts", "}"}]}], "/.", 
         RowBox[{"Options", "[", "SectionAverage", "]"}]}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"aver", "=", 
       RowBox[{"Mean", "[", "transp", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{"showdisp", ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"dispord", "==", "0"}], ",", 
          RowBox[{"Print", "[", 
           RowBox[{"dispord", ",", "\"\<-norm of arrays deviation=\>\"", ",", 
            RowBox[{"(", 
             RowBox[{"Max", "[", 
              RowBox[{"Abs", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"#", "-", "aver"}], ")"}], "&"}], "/@", "transp"}], 
               "]"}], "]"}], ")"}]}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"dispord", ",", "\"\<-norm of arrays deviation=\>\"", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Total", "[", 
                RowBox[{"Flatten", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"#", "-", "aver"}], ")"}], "&"}], "/@", 
                    "transp"}], ")"}], "^", "dispord"}], "]"}], "]"}], "/", 
               RowBox[{"Times", "@@", 
                RowBox[{"Dimensions", "[", "transp", "]"}]}]}], ")"}], "^", 
             RowBox[{"(", 
              RowBox[{"1", "/", "dispord"}], ")"}]}]}], "]"}]}], 
         "\[IndentingNewLine]", "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "aver", "]"}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.427605215984375*^9, 3.427605234796875*^9}, {
   3.427605285875*^9, 3.4276053226875*^9}, 3.4276053688125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"vxss", ",", "vyss", ",", "vzss"}], "}"}], "=", 
   RowBox[{"SectionAverage", "/@", 
    RowBox[{"{", 
     RowBox[{"vxs", ",", "vys", ",", "vzs"}], "}"}]}]}], ";"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SectionAverage", "[", 
   RowBox[{"p", ",", "2", ",", 
    RowBox[{"ShowDeviation", "\[Rule]", "True"}], ",", 
    RowBox[{"DeviationNorm", "\[Rule]", "0"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.42760520028125*^9, 3.42760520203125*^9}, {
  3.427605347078125*^9, 3.427605408578125*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0", "\[InvisibleSpace]", "\<\"-norm of arrays deviation=\"\>", 
   "\[InvisibleSpace]", "0.00007692307692308553`"}],
  SequenceForm[0, "-norm of arrays deviation=", 0.00007692307692308553],
  Editable->False]], "Print",
 CellChangeTimes->{{3.427605337234375*^9, 3.427605408953125*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"vxss", ",", "vyss", ",", "vzss"}], "}"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"SectionAverage", "[", 
      RowBox[{"#", ",", "2", ",", 
       RowBox[{"ShowDeviation", "\[Rule]", "True"}]}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.42760509765625*^9, 3.42760514603125*^9}}],

Cell[CellGroupData[{

Cell["DrawSection", "Subsubsection",
 CellChangeTimes->{{3.392107988093*^9, 3.392107989976*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"gds", "=", 
    RowBox[{"ReadDrawSection", "[", 
     RowBox[{"\"\<pumpflow_2_1993.snp\>\"", ",", "Global`Text", ",", "5", ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", 
      RowBox[{"PointOfSections", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]}]}], "]"}]}], ",", 
   RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.416842474972*^9, 3.416842563133*^9}, {3.416842612176*^9,
   3.416842624278*^9}, {3.4168436589309998`*^9, 3.416843659021*^9}, {
  3.416843916083*^9, 3.41684391658*^9}, {3.4168439912130003`*^9, 
  3.416843991498*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1", ",", "2"}], "}"}]], "Print",
 CellChangeTimes->{{3.4168426132609997`*^9, 3.416842625052*^9}, {
   3.416843660369*^9, 3.416843677186*^9}, 3.4168439175*^9, 3.416843992289*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.0001774675`", ",", "1993", ",", "20", ",", "20", ",", "20", ",", 
   "10.`"}], "}"}]], "Print",
 CellChangeTimes->{{3.4168426132609997`*^9, 3.416842625052*^9}, {
   3.416843660369*^9, 3.416843677186*^9}, 3.4168439175*^9, 3.416843992291*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ghost=\"\>", "\[InvisibleSpace]", "3"}],
  SequenceForm["ghost=", 3],
  Editable->False]], "Print",
 CellChangeTimes->{{3.4168426132609997`*^9, 3.416842625052*^9}, {
   3.416843660369*^9, 3.416843677186*^9}, 3.4168439175*^9, 
   3.4168439924189997`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{"#", "[", 
     RowBox[{"[", "2", "]"}], "]"}], 
    RowBox[{"#", "[", 
     RowBox[{"[", "1", "]"}], "]"}]], "&"}], "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Max", "[", 
     RowBox[{"Abs", "[", "#", "]"}], "]"}], "&"}], "/@", 
   RowBox[{"{", 
    RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData["423.04416403785484`"], "Output",
 CellChangeTimes->{3.3921104454379997`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Show2x", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ListPlot3D", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"Cut3D", "[", 
        RowBox[{"#", ",", "2", ",", "7"}], "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "->", "All"}], ",", 
      RowBox[{"DisplayFunction", "->", "Identity"}]}], "]"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{"vxs", ",", "vys", ",", "vzs", ",", "p"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{3.392105972301*^9, {3.392110693689*^9, 3.392110722146*^9}}],

Cell[BoxData[
 RowBox[{"Show2x", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ListContourPlot", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"Cut3D", "[", 
        RowBox[{"#", ",", "2", ",", "7"}], "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "->", "All"}], ",", 
      RowBox[{"DisplayFunction", "->", "Identity"}]}], "]"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{"vxs", ",", "vys", ",", "vzs", ",", "p"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.392105972301*^9, {3.392110497692*^9, 3.392110516601*^9}, 
   3.3921234610039997`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<temp.gif\>\"", ",", 
    RowBox[{"PrintRange", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"coor", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         FractionBox[
          RowBox[{"Cut3D", "[", 
           RowBox[{
            RowBox[{"Cut3D", "[", 
             RowBox[{"vy", ",", "2"}], "]"}], ",", "2", ",", "35"}], "]"}], 
          RowBox[{
           RowBox[{
            RowBox[{"coor", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "0"}], "+", "1"}]]}], "}"}], 
       "]"}], ",", "All", ",", 
      RowBox[{"PlotLabel", "->", "\"\<Angular velocity\>\""}]}], "]"}], ",", 
    RowBox[{"ImageResolution", "\[Rule]", "80"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "900"}]}], "]"}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<vstream.gif\>\"", ",", 
    RowBox[{"ListContourPlot", "[", 
     RowBox[{
      RowBox[{"Cut3D", "[", "vys", "]"}], ",", 
      RowBox[{"PlotLabel", "->", "\"\<Angular velocity\>\""}]}], "]"}], ",", 
    RowBox[{"ImageResolution", "->", "80"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "700"}]}], "]"}], ";"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0420\:0438\:0441\:043e\:0432\:0430\:043d\:0438\:0435 \:043f\:043e\
\:0432\:0435\:0440\:0445\:043d\:043e\:0441\:0442\:0435\:0439", "Subsection",
 CellChangeTimes->{{3.409341419406*^9, 3.40934143437*^9}, {
  3.4453342055655003`*^9, 3.4453342174905*^9}, {3.463911858609375*^9, 
  3.46391186478125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], "=", 
   RowBox[{"WithoutFict", "/@", 
    RowBox[{"{", 
     RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.439015011703125*^9, 3.4390150206875*^9}, {
  3.439015082390625*^9, 3.439015105390625*^9}, {3.45042439203125*^9, 
  3.4504243969375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"mx", "=", 
  RowBox[{"Max", "[", "vphi", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"gh", "=", 
  RowBox[{"ListContourPlot3D", "[", 
   RowBox[{
    SuperscriptBox["vphi", "\[Transpose]"], ",", 
    RowBox[{"Contours", "\[Rule]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], 
      RowBox[{"mx", "/", "4"}]}]}], ",", 
    RowBox[{"ContourStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directive", "[", 
        RowBox[{"Yellow", ",", 
         RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Pink", ",", 
         RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}], "}"}]}], ",", 
    RowBox[{"BoxRatios", "\[Rule]", "Automatic"}], ",", 
    RowBox[{"Mesh", "\[Rule]", "False"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"z", ",", "y", ",", "x"}], "}"}]}], ",", 
    RowBox[{"DataRange", "\[Rule]", "bounds"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.4052706022312546`*^9, 3.405270634587781*^9}, {
   3.405270745847765*^9, 3.4052707556819057`*^9}, {3.405271140785658*^9, 
   3.405271143649776*^9}, {3.409341128416*^9, 3.409341144784*^9}, {
   3.40934123341*^9, 3.409341237156*^9}, {3.409341276205*^9, 
   3.409341280727*^9}, {3.409341316645*^9, 3.409341376817*^9}, 
   3.409341434667*^9, 3.444475271358*^9, {3.444536108439*^9, 
   3.444536134924*^9}, {3.444737523699*^9, 3.444737529248*^9}, {
   3.4453290197319*^9, 3.4453290205639*^9}, {3.4453342055664997`*^9, 
   3.4453342810245*^9}, {3.4453344771285*^9, 3.4453344790215*^9}, {
   3.4453350634465*^9, 3.4453350663835*^9}, {3.4453387925495*^9, 
   3.4453388127395*^9}, {3.4453388524035*^9, 3.4453389215125*^9}, {
   3.4453389526025*^9, 3.4453389530945*^9}, 3.4453391195225*^9, {
   3.450424418203125*^9, 3.450424425796875*^9}, {3.450425397546875*^9, 
   3.45042546746875*^9}, {3.453894198515625*^9, 3.453894216484375*^9}, {
   3.453894256953125*^9, 3.45389425803125*^9}, {3.453894361890625*^9, 
   3.453894362265625*^9}, 3.45389618590625*^9, {3.454063695859375*^9, 
   3.454063723734375*^9}, 3.4625180024271903`*^9}],

Cell[BoxData["0.25046966566722056`"], "Output",
 CellChangeTimes->{3.4625180044171906`*^9, 3.463110060666*^9, 3.464330692*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"mx", "=", 
  RowBox[{"Max", "[", "helicity", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"gh", "=", 
  RowBox[{"ListContourPlot3D", "[", 
   RowBox[{
    RowBox[{"Transpose", "[", 
     RowBox[{"helicity", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}], ",", 
    RowBox[{"Contours", "\[Rule]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], 
      RowBox[{"mx", "/", "2"}]}]}], ",", 
    RowBox[{"ContourStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directive", "[", 
        RowBox[{"Yellow", ",", 
         RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Pink", ",", 
         RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}], "}"}]}], ",", 
    RowBox[{"BoxRatios", "\[Rule]", "Automatic"}], ",", 
    RowBox[{"Mesh", "\[Rule]", "False"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
    RowBox[{"DataRange", "\[Rule]", "bounds"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.4052706022312546`*^9, 3.405270634587781*^9}, {
   3.405270745847765*^9, 3.4052707556819057`*^9}, {3.405271140785658*^9, 
   3.405271143649776*^9}, {3.409341128416*^9, 3.409341144784*^9}, {
   3.40934123341*^9, 3.409341237156*^9}, {3.409341276205*^9, 
   3.409341280727*^9}, {3.409341316645*^9, 3.409341376817*^9}, 
   3.409341434667*^9, 3.444475271358*^9, {3.444536108439*^9, 
   3.444536134924*^9}, {3.444737523699*^9, 3.444737529248*^9}, {
   3.4453290197319*^9, 3.4453290205639*^9}, {3.4453342055664997`*^9, 
   3.4453342810245*^9}, {3.4453344771285*^9, 3.4453344790215*^9}, {
   3.4453350634465*^9, 3.4453350663835*^9}, {3.4453387925495*^9, 
   3.4453388127395*^9}, {3.4453388524035*^9, 3.4453389215125*^9}, {
   3.4453389526025*^9, 3.4453389530945*^9}, 3.4453391195225*^9, {
   3.450424418203125*^9, 3.450424425796875*^9}, {3.450425397546875*^9, 
   3.45042546746875*^9}, {3.453894222640625*^9, 3.453894223203125*^9}, {
   3.454056097875*^9, 3.454056097890625*^9}, {3.45406367203125*^9, 
   3.454063680703125*^9}, {3.4540676185625*^9, 3.45406763040625*^9}, {
   3.454135059296875*^9, 3.4541350596875*^9}, {3.45413697859375*^9, 
   3.45413699434375*^9}, {3.454137107703125*^9, 3.454137108625*^9}, {
   3.45414341596875*^9, 3.45414342846875*^9}, {3.454147099859375*^9, 
   3.4541471196875*^9}, 3.45414861984375*^9, 3.454150817796875*^9, {
   3.454400258828125*^9, 3.454400259234375*^9}, {3.463110109436*^9, 
   3.4631101165629997`*^9}, 3.4631101878710003`*^9, {3.463110584325*^9, 
   3.463110587601*^9}, {3.4631114181948*^9, 3.4631114233115997`*^9}, {
   3.463111558782*^9, 3.4631115671904*^9}, {3.4631116267200003`*^9, 
   3.4631116309476*^9}}],

Cell[BoxData["18.879731158415478`"], "Output",
 CellChangeTimes->{3.46251799511419*^9, 3.4625182198531904`*^9, 
  3.463110048796*^9, 3.463110117348*^9, 3.463110188481*^9, 3.4631105219874*^9,
   3.4631105640762*^9, 3.4631106028422003`*^9, 3.4631113654667997`*^9, 
  3.463111423608*^9, 3.4631115674244003`*^9, 3.4631116311972*^9, 
  3.46433068765625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<hel.eps\>\"", ",", "gh", ",", 
    RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4631102951486*^9, 3.4631103050546*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0418\:043d\:0442\:0435\:0440\:043f\:043e\:043b\:0438\:0440\:043e\:0432\
\:0430\:043d\:043d\:044b\:0435 \:0433\:0440\:0430\:0444\:0438\:043a\:0438", \
"Subsection",
 CellChangeTimes->{{3.392109772764*^9, 3.392109780086*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"vxi", ",", "vyi", ",", "vzi", ",", "pi", ",", "nuti"}], "}"}], 
   "=", 
   RowBox[{
    RowBox[{
     RowBox[{"ListInterpolation", "[", 
      RowBox[{"#", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Min", "[", 
            RowBox[{
            "coor", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
            "]"}], ",", 
           RowBox[{"Max", "[", 
            RowBox[{
            "coor", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
            "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Min", "[", 
            RowBox[{
            "coor", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
            "]"}], ",", 
           RowBox[{"Max", "[", 
            RowBox[{
            "coor", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
            "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Min", "[", 
            RowBox[{
            "coor", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
            "]"}], ",", 
           RowBox[{"Max", "[", 
            RowBox[{
            "coor", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
            "]"}]}], "}"}]}], "}"}], ",", 
       StyleBox[
        RowBox[{"InterpolationOrder", "->", "1"}], "MR"]}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"vxs", ",", "vys", ",", "vzs", ",", "p", ",", "nut"}], "}"}]}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.392109445125*^9, 3.392109448451*^9}}],

Cell[BoxData[
 RowBox[{"Show2x", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DensityPlot", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"z", "-", 
             RowBox[{"Mean", "[", 
              RowBox[{
              "bounds", "\[LeftDoubleBracket]", "3", 
               "\[RightDoubleBracket]"}], "]"}]}], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"r", "-", 
             RowBox[{"Mean", "[", 
              RowBox[{
              "bounds", "\[LeftDoubleBracket]", "1", 
               "\[RightDoubleBracket]"}], "]"}]}], ")"}], "2"]}], 
         "\[LessEqual]", 
         FractionBox[
          RowBox[{
           RowBox[{"bounds", "\[LeftDoubleBracket]", 
            RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], "-", 
           RowBox[{"bounds", "\[LeftDoubleBracket]", 
            RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}], "2"]}], ",",
         "#", ",", "0"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", 
        RowBox[{"bounds", "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"bounds", "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"z", ",", 
        RowBox[{"bounds", "\[LeftDoubleBracket]", 
         RowBox[{"3", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"bounds", "\[LeftDoubleBracket]", 
         RowBox[{"3", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", 
      RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"vxi", "[", 
      RowBox[{"r", ",", "0", ",", "z"}], "]"}], ",", 
     RowBox[{"vyi", "[", 
      RowBox[{"r", ",", "0", ",", "z"}], "]"}], ",", 
     RowBox[{"vzi", "[", 
      RowBox[{"r", ",", "0", ",", "z"}], "]"}], ",", 
     RowBox[{"pi", "[", 
      RowBox[{"r", ",", "0", ",", "z"}], "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.392109451833*^9, 3.3921094668389997`*^9}}],

Cell[BoxData[
 RowBox[{"Show2x", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ContourPlot", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"z", "-", 
             RowBox[{"Mean", "[", 
              RowBox[{
              "bounds", "\[LeftDoubleBracket]", "3", 
               "\[RightDoubleBracket]"}], "]"}]}], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"r", "-", 
             RowBox[{"Mean", "[", 
              RowBox[{
              "bounds", "\[LeftDoubleBracket]", "1", 
               "\[RightDoubleBracket]"}], "]"}]}], ")"}], "2"]}], 
         "\[LessEqual]", 
         FractionBox[
          RowBox[{
           RowBox[{"bounds", "\[LeftDoubleBracket]", 
            RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], "-", 
           RowBox[{"bounds", "\[LeftDoubleBracket]", 
            RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}], "2"]}], ",",
         "#", ",", "0"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", 
        RowBox[{"bounds", "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"bounds", "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"z", ",", 
        RowBox[{"bounds", "\[LeftDoubleBracket]", 
         RowBox[{"3", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"bounds", "\[LeftDoubleBracket]", 
         RowBox[{"3", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", 
       RowBox[{"\"\<Max=\>\"", "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{"Max", "[", "#", "]"}], "]"}], "<>", "\"\<; Min=\>\"", "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{"Min", "[", "#", "]"}], "]"}]}]}], ",", 
      RowBox[{"Contours", "\[Rule]", "20"}], ",", 
      RowBox[{"DisplayFunction", "->", "Identity"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"FrameTicks", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"CutList", "[", 
          RowBox[{
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Range", "[", 
               RowBox[{"Length", "[", 
                RowBox[{
                "coor", "\[LeftDoubleBracket]", "1", 
                 "\[RightDoubleBracket]"}], "]"}], "]"}], ",", 
              RowBox[{
              "coor", "\[LeftDoubleBracket]", "1", 
               "\[RightDoubleBracket]"}]}], "}"}], "]"}], ",", "10"}], "]"}], 
         ",", 
         RowBox[{"CutList", "[", 
          RowBox[{
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Range", "[", 
               RowBox[{"Length", "[", 
                RowBox[{
                "coor", "\[LeftDoubleBracket]", "3", 
                 "\[RightDoubleBracket]"}], "]"}], "]"}], ",", 
              RowBox[{
              "coor", "\[LeftDoubleBracket]", "3", 
               "\[RightDoubleBracket]"}]}], "}"}], "]"}], ",", "10"}], "]"}], 
         ",", "None", ",", "None"}], "}"}]}], ",", 
      RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0"}], "}"}]}]}], "]"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"vxi", "[", 
      RowBox[{"r", ",", "0", ",", "z"}], "]"}], ",", 
     RowBox[{"vyi", "[", 
      RowBox[{"r", ",", "0", ",", "z"}], "]"}], ",", 
     RowBox[{"vzi", "[", 
      RowBox[{"r", ",", "0", ",", "z"}], "]"}], ",", 
     RowBox[{"pi", "[", 
      RowBox[{"r", ",", "0", ",", "z"}], "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.392109493961*^9, 3.392109498167*^9}}],

Cell[BoxData[
 RowBox[{"Show2x", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Plot3D", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"z", "-", 
             RowBox[{"Mean", "[", 
              RowBox[{
              "bounds", "\[LeftDoubleBracket]", "3", 
               "\[RightDoubleBracket]"}], "]"}]}], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"r", "-", 
             RowBox[{"Mean", "[", 
              RowBox[{
              "bounds", "\[LeftDoubleBracket]", "1", 
               "\[RightDoubleBracket]"}], "]"}]}], ")"}], "2"]}], 
         "\[LessEqual]", 
         FractionBox[
          RowBox[{
           RowBox[{"bounds", "\[LeftDoubleBracket]", 
            RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], "-", 
           RowBox[{"bounds", "\[LeftDoubleBracket]", 
            RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}], "2"]}], ",",
         "#", ",", "0"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", 
        RowBox[{"bounds", "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"bounds", "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"z", ",", 
        RowBox[{"bounds", "\[LeftDoubleBracket]", 
         RowBox[{"3", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"bounds", "\[LeftDoubleBracket]", 
         RowBox[{"3", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"vxi", "[", 
      RowBox[{"r", ",", "0", ",", "z"}], "]"}], ",", 
     RowBox[{"vyi", "[", 
      RowBox[{"r", ",", "0", ",", "z"}], "]"}], ",", 
     RowBox[{"vzi", "[", 
      RowBox[{"r", ",", "0", ",", "z"}], "]"}], ",", 
     RowBox[{"pi", "[", 
      RowBox[{"r", ",", "0", ",", "z"}], "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3921095433129997`*^9, 3.392109548281*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"gds", "=", 
   RowBox[{"DisplayTogetherArray", "[", 
    RowBox[{
     RowBox[{"SectionRZ", "[", 
      RowBox[{"vxi", ",", "vyi", ",", "vzi", ",", 
       RowBox[{"0.2`", " ", "\[Pi]"}]}], "]"}], ",", 
     RowBox[{"SectionR\[CapitalPhi]", "[", 
      RowBox[{"vxi", ",", "vyi", ",", "vzi", ",", 
       RowBox[{"Mean", "[", 
        RowBox[{
        "bounds", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
        "]"}], ",", 
       RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", 
     RowBox[{"Section\[CapitalPhi]Z", "[", 
      RowBox[{"vxi", ",", "vyi", ",", "vzi", ",", 
       RowBox[{"Mean", "[", 
        RowBox[{
        "bounds", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
        "]"}], ",", 
       RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", 
     RowBox[{"Spacings", "\[Rule]", 
      RowBox[{"Scaled", "[", "0.`", "]"}]}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"gds", "=", 
    RowBox[{"DrawSection", "[", 
     RowBox[{"\"\<pumpflow64x64x64Re=1rc=4.snp\>\"", ",", "5"}], "]"}]}], ",", 
   RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<fieldRe=1rc=4.gif\>\"", ",", "gds", ",", 
    RowBox[{"ImageResolution", "\[Rule]", "80"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "900"}]}], "]"}], ";"}]], "Input"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:041f\:043e\:0441\:0442\:0440\:043e\:0435\:043d\:0438\:0435 \:0433\:0440\
\:0430\:0444\:0438\:043a\:043e\:0432 \:0432\:0434\:043e\:043b\:044c \:0441\
\:043d\:044d\:043f\:043e\:0432\
\>", "Section",
 CellChangeTimes->{{3.392105782605*^9, 3.392105784211*^9}, {3.419914379225*^9,
   3.419914383741*^9}}],

Cell[CellGroupData[{

Cell["\:041f\:043e\:0434\:0433\:043e\:0442\:043e\:0432\:043a\:0430", \
"Subsection",
 CellChangeTimes->{{3.4639028269375*^9, 3.463902828453125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ghost", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"coor", ",", "bounds", ",", "node"}], "}"}], "=", 
   RowBox[{"ReadAuxFiles", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<coord\>\"", ",", "\"\<node\>\""}], "}"}], ",", 
     RowBox[{"ShiftVector", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"ProcDistrib", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "1"}], "}"}]}], ",", 
     RowBox[{"NumberOfRefs", "\[Rule]", "2"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.419914598532*^9, 3.419914599582*^9}, {
  3.44835155803125*^9, 3.44835155959375*^9}, {3.4600285702656*^9, 
  3.4600285724156*^9}, {3.4600296199856*^9, 3.4600296201146*^9}}],

Cell[CellGroupData[{

Cell["\:0421\:0442\:0430\:0440\:043e\:0435 (\:0430\:043d\:0438\:043c\:0430\
\:0446\:0438\:044f \:0434\:0430\:0432\:043b\:0435\:043d\:0438\:044f)", \
"Subsubsection",
 CellChangeTimes->{{3.463902831609375*^9, 3.46390283975*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dr", "=", 
   RowBox[{"ReadList", "[", "\"\<debug\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"nm", ",", "refr", ",", "refz"}], "}"}], "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"Partition", "[", 
     RowBox[{"dr", ",", "3"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"node", "=", 
   RowBox[{"Clue", "[", 
    RowBox[{"nm", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"Set", "::", "write"}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "spell1"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ReadPressure", "[", "iter_", "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", "i", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Clear", "[", 
       RowBox[{"dumpRead", ",", "pm", ",", "p", ",", "ps"}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"dumpRead", "=", 
       RowBox[{"ReadList", "[", 
        RowBox[{"\"\<runtest1_\>\"", "<>", 
         RowBox[{"ToString", "[", "iter", "]"}], "<>", "\"\<.snp\>\""}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "t", ",", "count", ",", "np", ",", "n1", ",", "n2", ",", "n3", ",", 
         "Rey"}], "}"}], "=", 
       RowBox[{"Take", "[", 
        RowBox[{"dumpRead", ",", "7"}], "]"}]}], ";", 
      RowBox[{"dumpRead", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{"dumpRead", ",", "7"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"vxm", ",", "vym", ",", "vzm", ",", "pm", ",", "nutm"}], 
        "}"}], "=", 
       RowBox[{"Transpose", "[", 
        RowBox[{"Partition", "[", 
         RowBox[{"dumpRead", ",", "5"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"p", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Fold", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Map", "[", 
            RowBox[{
             RowBox[{"Function", "[", 
              RowBox[{"m", ",", 
               RowBox[{"Clue", "[", 
                RowBox[{"m", ",", "#2"}], "]"}]}], "]"}], ",", 
             RowBox[{"Partition", "[", 
              RowBox[{"#1", ",", 
               RowBox[{
               "np", "\[LeftDoubleBracket]", "#2", 
                "\[RightDoubleBracket]"}]}], "]"}], ",", 
             RowBox[{"{", "1", "}"}]}], "]"}], "&"}], ",", "pm", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"ps", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          FractionBox[
           RowBox[{"node", "/.", 
            RowBox[{"b_", ":>", 
             RowBox[{"0", "/;", 
              RowBox[{"b", "\[NotEqual]", "8"}]}]}]}], "8"], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "&"}], "/@", "p"}], ")"}]}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"ghost", "+", "1"}], ",", 
           RowBox[{"n2", "+", "ghost"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{
        RowBox[{
         SqrtBox[
          RowBox[{"Mean", "[", 
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", "#", "]"}], ",", "Positive"}], "]"}], 
           "]"}]], "&"}], "/@", 
        SuperscriptBox["ps", "2"]}], "]"}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]}], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lpres", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"PrintRange", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"#", "-", 
           RowBox[{"Mean", "[", "#", "]"}]}], ")"}], "&"}], "@", 
        RowBox[{"ReadPressure", "[", "niter", "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", "0.7"}], "}"}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", "niter"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"niter", ",", "100", ",", "300", ",", "100"}], "}"}]}], "]"}]}],
   ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ldifpres", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"PrintRange", "[", 
      RowBox[{
       RowBox[{"dif", "[", 
        RowBox[{"ReadPressure", "[", "niter", "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", "niter"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"niter", ",", "100", ",", "14200", ",", "100"}], "}"}]}], 
    "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<pressure.gif\>\"", ",", "lpres"}], "]"}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"n2", "=", "20"}], ";"}]], "Input",
 CellChangeTimes->{{3.4168427696289997`*^9, 3.416842771992*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ps", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"node", "/.", 
        RowBox[{"b_", ":>", 
         RowBox[{"0", "/;", 
          RowBox[{"b", "\[NotEqual]", "8"}]}]}]}], "8"], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "&"}], "/@", "p"}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"ghost", "+", "1"}], ",", 
       RowBox[{"n2", "+", "ghost"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"PrintRange", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Mean", "[", 
     RowBox[{"Mean", "[", "#", "]"}], "]"}], "&"}], "/@", "ps"}], 
  "]"}]}], "Input",
 CellChangeTimes->{3.4168427761730003`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"SectionRZ", "[", 
     RowBox[{"\[Pi]", " ", 
      FractionBox["i", "100"]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "10", ",", "200"}], "}"}]}], "]"}], ";"}]], "Input"]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReadSection", "[", 
   RowBox[{"iter_", ",", 
    RowBox[{"nproc_Integer:", "1"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"dump", ",", 
      RowBox[{"str", "=", 
       RowBox[{"ToString", "[", "iter", "]"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"StringLength", "[", "str", "]"}], "<", "5"}], ",", 
        RowBox[{"str", "=", 
         RowBox[{"\"\<0\>\"", "<>", "str"}]}]}], "]"}], ";"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"p", ",", "vx", ",", "vy", ",", "vz", ",", "nut"}], "}"}], 
       "=", 
       RowBox[{"ReadTextSnapFile", "[", 
        RowBox[{
         RowBox[{"\"\<screw_\>\"", "<>", 
          RowBox[{"ToString", "[", "nproc", "]"}], "<>", "\"\<_\>\"", "<>", 
          "str", "<>", "\"\<.snp\>\""}], ",", "3", ",", 
         RowBox[{"PrintInfo", "\[Rule]", "None"}]}], "]"}]}], ";"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"out", "=."}], ";", 
     RowBox[{"ReadBinarySnapFile", "[", 
      RowBox[{
       RowBox[{"\"\<screw_\>\"", "<>", 
        RowBox[{"ToString", "[", "nproc", "]"}], "<>", "\"\<_\>\"", "<>", 
        "str", "<>", "\"\<.snp\>\""}], ",", "3", ",", "out", ",", 
       RowBox[{"PrintInfo", "\[Rule]", "None"}]}], "]"}], ";", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], "=", "out"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"!", 
         RowBox[{"NameQ", "[", "coor", "]"}]}], "\[Or]", 
        RowBox[{
         RowBox[{"Length", "[", "coor", "]"}], "=!=", "3"}], "\[Or]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Length", "/@", "coor"}], ")"}], "\[NotEqual]", 
         RowBox[{"Dimensions", "[", "vx", "]"}]}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"coor", ",", "bounds", ",", "node"}], "}"}], "=", 
        RowBox[{"ReadAuxFiles", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\"\<coord\>\"", ",", "\"\<node\>\""}], "}"}], ",", 
          RowBox[{"ShiftVector", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
          RowBox[{"ProcDistrib", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2", ",", "16", ",", "2"}], "}"}]}], ",", 
          RowBox[{"NumberOfRefs", "\[Rule]", "2"}]}], "]"}]}]}], "]"}], 
     ";"}]}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Return", "[", 
      RowBox[{"{", 
       RowBox[{"Bx", ",", "By", ",", "Bz"}], "}"}], "]"}], ";"}], "*)"}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.419914877208*^9, 3.419914883001*^9}, {3.41991502408*^9, 
   3.419915026293*^9}, {3.431684131015625*^9, 3.43168413496875*^9}, {
   3.431684629875*^9, 3.431684633953125*^9}, {3.43228858490625*^9, 
   3.432288587234375*^9}, {3.432290188875*^9, 3.432290193703125*^9}, {
   3.432352436375*^9, 3.432352438671875*^9}, {3.4325250570301247`*^9, 
   3.4325250582644997`*^9}, {3.4325257696394997`*^9, 
   3.4325257850613747`*^9}, {3.4325260720926247`*^9, 3.4325260820457497`*^9}, 
   3.4325277687957497`*^9, {3.432873006640625*^9, 3.43287300771875*^9}, {
   3.4331487892163754`*^9, 3.4331487893101254`*^9}, {3.433569193015625*^9, 
   3.433569195296875*^9}, {3.43383380046875*^9, 3.4338338025625*^9}, {
   3.433834005296875*^9, 3.433834006375*^9}, {3.434096848125*^9, 
   3.43409684984375*^9}, {3.434097013515625*^9, 3.434097024078125*^9}, {
   3.434859084424121*^9, 3.434859098204401*^9}, {3.434859428931116*^9, 
   3.434859431337197*^9}, {3.4470665082578*^9, 3.4470665093087997`*^9}, {
   3.447147045015625*^9, 3.447147045671875*^9}, {3.448348682171875*^9, 
   3.448348683140625*^9}, {3.448351169828125*^9, 3.448351171046875*^9}, {
   3.4502469965625*^9, 3.450247011265625*^9}, {3.455602992359375*^9, 
   3.45560301403125*^9}, {3.455603397203125*^9, 3.4556034235*^9}, {
   3.455603823203125*^9, 3.4556038418125*^9}, {3.4600286265706*^9, 
   3.4600286515556*^9}, {3.4600287564765997`*^9, 3.4600287718076*^9}, {
   3.460434358765625*^9, 3.46043437309375*^9}, {3.4604579555625*^9, 
   3.460457966640625*^9}, {3.460696029296875*^9, 3.46069603825*^9}, {
   3.460715600296875*^9, 3.460715641109375*^9}, {3.46114285209375*^9, 
   3.461142854125*^9}, {3.461387274875*^9, 3.461387275359375*^9}, 
   3.461473757734375*^9, {3.462511919515625*^9, 3.46251191959375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"nums", "=", 
  RowBox[{"Union", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"First", "[", 
       RowBox[{"StringCases", "[", 
        RowBox[{"#", ",", 
         RowBox[{
          RowBox[{
          "RegularExpression", "[", 
           "\"\<([^_]+?)_([^_]+?)_([^\\\\.]+?)\\\\.(.*?)\>\"", "]"}], 
          "\[Rule]", "\"\<$3\>\""}]}], "]"}], "]"}], "]"}], "&"}], "/@", 
    RowBox[{"FileNames", "[", "\"\<*.snp\>\"", "]"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", "nproc", "}"}], "=", 
  RowBox[{"Union", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"First", "[", 
       RowBox[{"StringCases", "[", 
        RowBox[{"#", ",", 
         RowBox[{
          RowBox[{
          "RegularExpression", "[", 
           "\"\<([^_]+?)_([^_]+?)_([^\\\\.]+?)\\\\.(.*?)\>\"", "]"}], 
          "\[Rule]", "\"\<$2\>\""}]}], "]"}], "]"}], "]"}], "&"}], "/@", 
    RowBox[{"FileNames", "[", "\"\<*.snp\>\"", "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.3960318271870003`*^9, 3.396032011225*^9}, {
  3.4095162687869997`*^9, 3.40951627287*^9}, {3.4325260897019997`*^9, 
  3.4325260898738747`*^9}, {3.44834728540625*^9, 3.448347297578125*^9}, {
  3.4502475760625*^9, 3.4502475775625*^9}, {3.46309854265625*^9, 
  3.46309854334375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2712", ",", "4417", ",", "6266", ",", "8067", ",", "10003", ",", "11974", 
   ",", "13870", ",", "15796", ",", "17742", ",", "19701", ",", "21840", ",", 
   "32564", ",", "32753", ",", "35091", ",", "37440", ",", "39583", ",", 
   "41999", ",", "44457", ",", "46942", ",", "49143", ",", "51679", ",", 
   "54269", ",", "56870", ",", "59145", ",", "61841", ",", "64606", ",", 
   "66917", ",", "69819", ",", "72779", ",", "75914", ",", "78285"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.462511921703125*^9, 3.462523014671875*^9, 
  3.462525152703125*^9, 3.463084766703125*^9, 3.463098543703125*^9, 
  3.463210120359375*^9, 3.463472976046875*^9, 3.463476220265625*^9, 
  3.464346039390625*^9, 3.4644104435*^9, 3.464424846640625*^9}],

Cell[BoxData[
 RowBox[{"{", "64", "}"}]], "Output",
 CellChangeTimes->{3.462511921703125*^9, 3.462523014671875*^9, 
  3.462525152703125*^9, 3.463084766703125*^9, 3.463098543703125*^9, 
  3.463210120359375*^9, 3.463472976046875*^9, 3.463476220265625*^9, 
  3.464346039390625*^9, 3.4644104435*^9, 3.46442484665625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReadZipSnap", "[", "fname_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"fn", ",", "iter", ",", "nproc", ",", 
      RowBox[{"res", "=", "Null"}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"StringFreeQ", "[", 
         RowBox[{"fname", ",", 
          RowBox[{"{", 
           RowBox[{"\"\<.gz\>\"", ",", "\"\<.bz2\>\""}], "}"}]}], "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"fn", "=", 
         RowBox[{"StringReplace", "[", 
          RowBox[{"fname", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\"\<.gz\>\"", "\[Rule]", "\"\<\>\""}], ",", 
             RowBox[{"\"\<.bz2\>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Export", "[", 
         RowBox[{"fn", ",", 
          RowBox[{"Import", "[", "fname", "]"}], ",", "\"\<Text\>\""}], 
         "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"fn", "=", 
         RowBox[{"Import", "[", "fname", "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Export", "[", 
         RowBox[{"fn", ",", 
          RowBox[{"Import", "[", 
           RowBox[{"fname", ",", "fn"}], "]"}], ",", "\"\<Text\>\""}], 
         "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"iter", ",", "nproc"}], "}"}], "=", 
      RowBox[{"ToExpression", "[", 
       RowBox[{"First", "[", 
        RowBox[{"StringCases", "[", 
         RowBox[{"fname", ",", 
          RowBox[{
           RowBox[{
           "RegularExpression", "[", 
            "\"\<([^_]+?)_([^_]+?)_([^\\\\.]+?)\\\\.(.*?)\>\"", "]"}], 
           "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"\"\<$3\>\"", ",", "\"\<$2\>\""}], "}"}]}]}], "]"}], 
        "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"ReadSection", "[", 
      RowBox[{"iter", ",", "nproc"}], "]"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"res", "=", 
      RowBox[{"ReadSnapHeader", "[", "fn", "]"}]}], ";"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Close", "[", "fn", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"DeleteFile", "[", "fn", "]"}], ";", "\[IndentingNewLine]", 
     "res"}], "*)"}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.448347948078125*^9, 3.448347975140625*^9}, {
  3.448348267921875*^9, 3.448348300734375*^9}, {3.448348350109375*^9, 
  3.44834838846875*^9}, {3.44834845215625*^9, 3.4483484946875*^9}, {
  3.44834858215625*^9, 3.448348614171875*^9}, {3.448348658171875*^9, 
  3.448348658265625*^9}, {3.448348721*^9, 3.448348750953125*^9}, {
  3.44834878215625*^9, 3.448348880640625*^9}, {3.4483492878125*^9, 
  3.448349297703125*^9}, {3.44834987421875*^9, 3.448349878734375*^9}, {
  3.44834991575*^9, 3.4483499238125*^9}, {3.448355066265625*^9, 
  3.4483551091875*^9}, {3.4600310625046*^9, 3.4600311194136*^9}}],

Cell[BoxData[
 RowBox[{"ReadZipSnap", "/@", 
  RowBox[{"FileNames", "[", "\"\<*.snp*\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.448348496203125*^9, 3.448348506171875*^9}, 
   3.448348998203125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReadZipSnap", "[", "\"\<pumpflow_64_6000.snp.gz\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.448347982078125*^9, 3.44834798290625*^9}, {
  3.448348771*^9, 3.448348776984375*^9}, {3.448348926578125*^9, 
  3.448348926921875*^9}, {3.44835092903125*^9, 3.448350931765625*^9}, {
  3.4483519441875*^9, 3.448351944765625*^9}, {3.44835271584375*^9, 
  3.448352717125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.0714071379`", ",", "6000", ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "16", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "128", ",", "16"}], "}"}], ",", "1.`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.448355115671875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"nums", "=", 
   RowBox[{"CutList", "[", 
    RowBox[{"nums", ",", "20"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.433838571453125*^9, 3.43383860959375*^9}, {
   3.433841623453125*^9, 3.433841623796875*^9}, 3.461320276359375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nums", "=", 
   RowBox[{"Take", "[", 
    RowBox[{"nums", ",", "20"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4328730173125*^9, 3.432873022921875*^9}, {
   3.4331364272945004`*^9, 3.4331364312788754`*^9}, {3.4331369456695004`*^9, 
   3.4331369466226254`*^9}, {3.433569201359375*^9, 3.433569201921875*^9}, 
   3.46139084540625*^9, {3.461396458890625*^9, 3.4613964599375*^9}, {
   3.461407315546875*^9, 3.4614073204375*^9}, {3.461410432828125*^9, 
   3.461410434109375*^9}, 3.4634762290625*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"nums", "=", 
   RowBox[{"Select", "[", 
    RowBox[{"nums", ",", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"#", ">", "20000"}], "&"}], ")"}]}], "]"}]}], ";", 
  RowBox[{"Length", "[", "nums", "]"}]}]], "Input",
 CellChangeTimes->{{3.4331414901851254`*^9, 3.4331415034195004`*^9}, {
  3.433841598765625*^9, 3.433841602390625*^9}}],

Cell[BoxData["46"], "Output",
 CellChangeTimes->{3.4331415038101254`*^9, 3.433841603421875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"nums", "=", 
   RowBox[{"Select", "[", 
    RowBox[{"nums", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Mod", "[", 
        RowBox[{"#", ",", "15"}], "]"}], "==", "0"}], "&"}]}], "]"}]}], ";", 
  RowBox[{"Length", "[", "nums", "]"}]}]], "Input",
 CellChangeTimes->{{3.4325260997801247`*^9, 3.4325261205457497`*^9}, {
  3.4325269906394997`*^9, 3.4325269912019997`*^9}, {3.4325277784051247`*^9, 
  3.4325277896238747`*^9}, {3.4325377552644997`*^9, 3.4325377600613747`*^9}, {
  3.4600289777576*^9, 3.4600289779245996`*^9}}],

Cell[BoxData["117"], "Output",
 CellChangeTimes->{3.4325377608269997`*^9, 3.4600289787956*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0427\:0442\:0435\:043d\:0438\:0435", "Subsection",
 CellChangeTimes->{{3.4639028269375*^9, 3.463902828453125*^9}, {
  3.4639029153125*^9, 3.463902918171875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"\"\<divert\>\"", "<>", 
       RowBox[{"ToString", "[", "#", "]"}], "<>", "\"\<.gif\>\""}], ",", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ReadSection", "[", 
         RowBox[{"#", ",", "nproc"}], "]"}], ";", 
        RowBox[{"DrawSection", "[", 
         RowBox[{"vx", ",", "vy", ",", "vz", ",", 
          RowBox[{"PointOfSections", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2", ",", "0", ",", "0"}], "}"}]}]}], "]"}]}], ")"}]}], 
     "]"}], "&"}], "/@", "nums"}], ";"}]], "Input",
 CellChangeTimes->{{3.433847480765625*^9, 3.43384755171875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"coor", ",", "bounds", ",", "node"}], "}"}], "=", 
   RowBox[{"ReadAuxFiles", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<coord\>\"", ",", "\"\<node\>\""}], "}"}], ",", 
     RowBox[{"ShiftVector", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"ProcDistrib", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "1"}], "}"}]}], ",", 
     RowBox[{"NumberOfRefs", "\[Rule]", "2"}]}], "]"}]}], ";", 
  RowBox[{"phi", "=", 
   RowBox[{"Outer", "[", 
    RowBox[{"ArcTan", ",", 
     RowBox[{"coor", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"coor", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.433844200890625*^9, {3.4471473276875*^9, 3.447147328921875*^9}, {
   3.447412184375*^9, 3.44741218559375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"res", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"Monitor", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ReadSection", "[", 
        RowBox[{
         RowBox[{
         "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
         "nproc"}], "]"}], ";", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"res", ",", 
         RowBox[{"{", 
          RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", "nums", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.428221763703125*^9, 3.428221767546875*^9}, {
   3.428221849*^9, 3.4282219504375*^9}, {3.43200628800287*^9, 
   3.43200632558327*^9}, {3.4320063812908697`*^9, 3.43200642035327*^9}, {
   3.43200668839327*^9, 3.4320066920436697`*^9}, 3.4320068530356703`*^9, {
   3.4322761868780003`*^9, 3.4322761873459997`*^9}, {3.4325278069363747`*^9, 
   3.4325278116707497`*^9}, {3.4331415057945004`*^9, 
   3.4331415071851254`*^9}, {3.434096889484375*^9, 3.434096908203125*^9}, 
   3.434097010875*^9, {3.434097069171875*^9, 3.434097069234375*^9}, 
   3.434097673359375*^9, 3.434109339859375*^9, 3.4341094461875*^9, 
   3.434109503421875*^9, {3.43411058984375*^9, 3.43411059396875*^9}, {
   3.4470665444508*^9, 3.4470665451628*^9}, {3.447404493967*^9, 
   3.4474044966730003`*^9}, {3.460434550046875*^9, 3.460434550265625*^9}, {
   3.460457058125*^9, 3.46045706525*^9}, {3.462511941890625*^9, 
   3.4625119425625*^9}, {3.462522387234375*^9, 3.462522387640625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"res", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"nums", "=", 
   RowBox[{"SortBy", "[", 
    RowBox[{
     RowBox[{"FileNames", "[", "\"\<*.snp*\>\"", "]"}], ",", 
     RowBox[{
      RowBox[{"ToExpression", "[", 
       RowBox[{"StringCases", "[", 
        RowBox[{"#", ",", 
         RowBox[{
          RowBox[{
          "RegularExpression", "[", 
           "\"\<([^_]+?)_([^_]+?)_([^\\\\.]+?)\\\\.(.*?)\>\"", "]"}], 
          "\[Rule]", "\"\<$3\>\""}]}], "]"}], "]"}], "&"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Monitor", "[", 
  RowBox[{
   RowBox[{"Do", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ReadZipSnap", "[", 
       RowBox[{"nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}],
        "]"}], ";", 
      RowBox[{"AppendTo", "[", 
       RowBox[{"res", ",", 
        RowBox[{"{", 
         RowBox[{"vx", ",", "vy", ",", "vz", ",", "p"}], "}"}]}], "]"}]}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", "nums", "]"}]}], "}"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"PrintRange", "[", 
      RowBox[{
       RowBox[{"p", "\[LeftDoubleBracket]", 
        RowBox[{"7", ",", "All", ",", "7"}], "\[RightDoubleBracket]"}], ",", 
       "All", ",", 
       RowBox[{"PlotLabel", "\[Rule]", "tsec"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"vphi", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"vx", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "ny", ",", "All"}], "]"}], "]"}], 
           RowBox[{"Sin", "[", "phi", "]"}]}], "-", 
          RowBox[{
           RowBox[{"vz", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "ny", ",", "All"}], "]"}], "]"}], 
           RowBox[{"Cos", "[", "phi", "]"}]}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ny", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "vx", "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"PrintRange", "[", 
       RowBox[{
        RowBox[{"Log", "/@", 
         RowBox[{"Max", "/@", 
          RowBox[{"Flatten", "/@", 
           RowBox[{"WithoutFict", "@", "vphi"}]}]}]}], ",", "All", ",", 
        RowBox[{"PlotLabel", "\[Rule]", "tsec"}]}], "]"}]}]}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.448348496203125*^9, 3.448348506171875*^9}, {
   3.448348998203125*^9, 3.448349063359375*^9}, {3.44834913584375*^9, 
   3.448349241171875*^9}, 3.448349383265625*^9, {3.4483495124375*^9, 
   3.448349516078125*^9}, {3.44835276628125*^9, 3.448352767*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"res", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"Monitor", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ReadSection", "[", 
        RowBox[{
         RowBox[{
         "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
         "nproc"}], "]"}], ";", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"res", ",", 
         RowBox[{"{", 
          RowBox[{"vx", ",", "vy", ",", "vz", ",", "p"}], "}"}]}], "]"}]}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", "nums", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ListContourPlot", "[", 
       RowBox[{
        RowBox[{"Cut3D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Last", "[", "res", "]"}], "\[LeftDoubleBracket]", "2", 
           "\[RightDoubleBracket]"}], ",", "1", ",", "7"}], "]"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{
         "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}], 
       "]"}], ",", 
      RowBox[{"PrintRange", "[", 
       RowBox[{
        RowBox[{"res", "\[LeftDoubleBracket]", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "2", ",", "7", ",", "All", ",", "7"}], 
         "\[RightDoubleBracket]"}], ",", "All", ",", 
        RowBox[{"PlotLabel", "\[Rule]", "tsec"}]}], "]"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.428221763703125*^9, 3.428221767546875*^9}, {
   3.428221849*^9, 3.4282219504375*^9}, {3.43200628800287*^9, 
   3.43200632558327*^9}, {3.4320063812908697`*^9, 3.43200642035327*^9}, {
   3.43200668839327*^9, 3.4320066920436697`*^9}, 3.4320068530356703`*^9, {
   3.4322761868780003`*^9, 3.4322761873459997`*^9}, {3.4325278069363747`*^9, 
   3.4325278116707497`*^9}, {3.4331415057945004`*^9, 3.4331415071851254`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"res", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"Monitor", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ReadSection", "[", 
        RowBox[{
         RowBox[{
         "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
         "nproc"}], "]"}], ";", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"res", ",", 
         RowBox[{"DrawSection", "[", 
          RowBox[{"vx", ",", "vy", ",", "vz", ",", 
           RowBox[{"PointOfSections", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"2", ",", "0", ",", "0"}], "}"}]}], ",", 
           RowBox[{"OnlySection", "\[Rule]", "True"}]}], "]"}]}], "]"}]}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", "nums", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"Last", "[", "res", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.428221763703125*^9, 3.428221767546875*^9}, {
   3.428221849*^9, 3.4282219504375*^9}, {3.43200628800287*^9, 
   3.43200632558327*^9}, {3.4320063812908697`*^9, 3.43200642035327*^9}, {
   3.43200668839327*^9, 3.4320066920436697`*^9}, 3.4320068530356703`*^9, {
   3.4322761868780003`*^9, 3.4322761873459997`*^9}, {3.4325278069363747`*^9, 
   3.4325278116707497`*^9}, 3.4331375984351254`*^9, {3.4331376529507504`*^9, 
   3.4331376846226254`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"res", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"Monitor", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ReadSection", "[", 
        RowBox[{
         RowBox[{
         "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
         "nproc"}], "]"}], ";", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"res", ",", 
         RowBox[{"Total", "[", 
          RowBox[{"MapThread", "[", 
           RowBox[{"Times", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], ",", 
              RowBox[{"rotc", "[", 
               RowBox[{"vx", ",", "vy", ",", "vz", ",", "ghost"}], "]"}]}], 
             "}"}]}], "]"}], "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", "nums", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"infos", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", 
      RowBox[{"ListLogPlot", "[", 
       RowBox[{"Mean", "/@", 
        RowBox[{"Flatten", "/@", 
         SuperscriptBox[
          RowBox[{"Last", "[", "res", "]"}], "\[Transpose]"]}]}], "]"}]}], 
     "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.428221763703125*^9, 3.428221767546875*^9}, {
   3.428221849*^9, 3.4282219504375*^9}, {3.43200628800287*^9, 
   3.43200632558327*^9}, {3.4320063812908697`*^9, 3.43200642035327*^9}, {
   3.43200668839327*^9, 3.4320066920436697`*^9}, 3.4320068530356703`*^9, {
   3.4322761868780003`*^9, 3.4322761873459997`*^9}, {3.4325278069363747`*^9, 
   3.4325278116707497`*^9}, 3.4331375984351254`*^9, {3.4331376529507504`*^9, 
   3.4331376846226254`*^9}, 3.46308483778125*^9, {3.463084903140625*^9, 
   3.463084906015625*^9}, {3.463084942765625*^9, 3.463084980453125*^9}, 
   3.463480506671875*^9, 3.46442537471875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"res", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"Monitor", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ReadSection", "[", 
        RowBox[{
         RowBox[{
         "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
         "nproc"}], "]"}], ";", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"res", ",", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"vphi", "=", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"vx", "[", 
                  RowBox[{"[", 
                   RowBox[{"All", ",", "ny", ",", "All"}], "]"}], "]"}], 
                 RowBox[{"Sin", "[", "phi", "]"}]}], "-", 
                RowBox[{
                 RowBox[{"vz", "[", 
                  RowBox[{"[", 
                   RowBox[{"All", ",", "ny", ",", "All"}], "]"}], "]"}], 
                 RowBox[{"Cos", "[", "phi", "]"}]}]}], ",", 
               RowBox[{"{", 
                RowBox[{"ny", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "vx", "]"}], "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
            RowBox[{"ListLogPlot", "[", 
             RowBox[{
              RowBox[{"Max", "/@", 
               RowBox[{"Flatten", "/@", 
                RowBox[{"WithoutFict", "@", "vphi"}]}]}], ",", 
              RowBox[{"PlotLabel", "\[Rule]", "tsec"}]}], "]"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"ListLogPlot", "[", 
            RowBox[{
             RowBox[{"Mean", "/@", 
              RowBox[{"Flatten", "/@", 
               RowBox[{"WithoutFict", "@", "vphi"}]}]}], ",", 
             RowBox[{"PlotLabel", "\[Rule]", "tsec"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"PrintRange", "[", 
            RowBox[{
             RowBox[{"WithoutFict", "@", 
              RowBox[{"vy", "\[LeftDoubleBracket]", 
               RowBox[{"19", ",", "All", ",", "19"}], 
               "\[RightDoubleBracket]"}]}], ",", "Automatic", ",", 
             RowBox[{"PlotLabel", "\[Rule]", "tsec"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"DrawSection", "[", 
            RowBox[{"vx", ",", "vy", ",", "vz", ",", 
             RowBox[{"PointOfSections", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"2", ",", "0", ",", "0"}], "}"}]}]}], "]"}]}], "}"}]}],
         "\[IndentingNewLine]", "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", "nums", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"Prepend", "[", 
     RowBox[{
      RowBox[{"Most", "[", 
       RowBox[{"Last", "[", "res", "]"}], "]"}], ",", 
      RowBox[{"nums", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.428221763703125*^9, 3.428221767546875*^9}, {
   3.428221849*^9, 3.4282219504375*^9}, {3.43200628800287*^9, 
   3.43200632558327*^9}, {3.4320063812908697`*^9, 3.43200642035327*^9}, {
   3.43200668839327*^9, 3.4320066920436697`*^9}, 3.4320068530356703`*^9, {
   3.4322761868780003`*^9, 3.4322761873459997`*^9}, {3.4338433043125*^9, 
   3.433843331109375*^9}, {3.4338434116875*^9, 3.433843442*^9}, {
   3.433843472734375*^9, 3.4338435723125*^9}, {3.433844182265625*^9, 
   3.433844196859375*^9}, {3.4338442301875*^9, 3.43384423671875*^9}, {
   3.433844290203125*^9, 3.433844290828125*^9}, {3.433844340890625*^9, 
   3.4338443509375*^9}, {3.455603079796875*^9, 3.45560311934375*^9}, {
   3.455603161515625*^9, 3.4556031931875*^9}, {3.455603901953125*^9, 
   3.455603903046875*^9}, {3.45560401984375*^9, 3.45560403071875*^9}, {
   3.463480403453125*^9, 3.463480406171875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\:041f\:0440\:043e\:0441\:043c\:043e\:0442\:0440", "Subsection",
 CellChangeTimes->{{3.4639028269375*^9, 3.463902828453125*^9}, {
  3.4639029153125*^9, 3.463902918171875*^9}, {3.463911314796875*^9, 
  3.46391131575*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "res", "]"}]], "Input",
 CellChangeTimes->{{3.46043541046875*^9, 3.4604354125*^9}, {
  3.462522393734375*^9, 3.462522400484375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"31", ",", "70", ",", "70", ",", "70"}], "}"}]], "Output",
 CellChangeTimes->{
  3.460435412875*^9, 3.460437644125*^9, 3.46045797940625*^9, 
   3.46069605190625*^9, 3.460715886640625*^9, 3.461143231453125*^9, 
   3.4613206059375*^9, 3.461391328890625*^9, 3.46140921353125*^9, 
   3.46141130421875*^9, 3.46147531215625*^9, 3.462512443734375*^9, {
   3.46252239559375*^9, 3.462522413890625*^9}, 3.46321086834375*^9, 
   3.463477342453125*^9, 3.463912210828125*^9, 3.46434667215625*^9, 
   3.46442996090625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListAnimate", "[", 
  RowBox[{"res", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.455606274046875*^9, 3.455606293984375*^9}, 
   3.455606628609375*^9, {3.45560677996875*^9, 3.455606794109375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mean", "=", 
   RowBox[{"Mean", "@", "res"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.43297276796875*^9, 3.432972786609375*^9}}],

Cell[BoxData[
 RowBox[{"DrawSection", "[", 
  RowBox[{
   RowBox[{"mean", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
   ",", 
   RowBox[{"mean", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
   ",", 
   RowBox[{"mean", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
   ",", 
   RowBox[{"PointOfSections", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"2", ",", "0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"OnlySection", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.43297279775*^9, 3.432972805671875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"vphi", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"mean", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "All", ",", "ny", ",", "All"}], "]"}], "]"}], 
       RowBox[{"Sin", "[", "phi", "]"}]}], "-", 
      RowBox[{
       RowBox[{"mean", "[", 
        RowBox[{"[", 
         RowBox[{"3", ",", "All", ",", "ny", ",", "All"}], "]"}], "]"}], 
       RowBox[{"Cos", "[", "phi", "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ny", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "vx", "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vrho", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"mean", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "All", ",", "ny", ",", "All"}], "]"}], "]"}], 
       RowBox[{"Cos", "[", "phi", "]"}]}], "+", 
      RowBox[{
       RowBox[{"mean", "[", 
        RowBox[{"[", 
         RowBox[{"3", ",", "All", ",", "ny", ",", "All"}], "]"}], "]"}], 
       RowBox[{"Sin", "[", "phi", "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ny", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "vx", "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.427393291138*^9, 3.4273932918789997`*^9}, {
  3.427393425285*^9, 3.427393481516*^9}, {3.427393586804*^9, 
  3.427393621392*^9}, {3.427435180836*^9, 3.427435271693*^9}, {
  3.4274369167530003`*^9, 3.427436916927*^9}, {3.4283976370566*^9, 
  3.4283976376476*^9}, {3.43356986578125*^9, 3.433569890703125*^9}, {
  3.433844189046875*^9, 3.43384418928125*^9}}],

Cell[BoxData[
 RowBox[{"DrawSection", "[", 
  RowBox[{
   RowBox[{"Sequence", "@@", 
    RowBox[{"res", "[", 
     RowBox[{"[", "17", "]"}], "]"}]}], ",", 
   RowBox[{"PointOfSections", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.1", ",", "0", ",", "0"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.460435457578125*^9, 3.460435468109375*^9}, {
  3.46045798409375*^9, 3.460457993703125*^9}, {3.46069667384375*^9, 
  3.460696702953125*^9}, {3.46069674671875*^9, 3.4606968033125*^9}}],

Cell[BoxData[{
 RowBox[{"PrintRange", "[", 
  RowBox[{"Log", "/@", 
   RowBox[{"Max", "/@", 
    RowBox[{"Flatten", "/@", 
     RowBox[{"WithoutFict", "@", "vphi"}]}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"PrintRange", "[", 
  RowBox[{"Log", "/@", 
   RowBox[{"Max", "/@", 
    RowBox[{"Flatten", "/@", 
     RowBox[{"WithoutFict", "@", "vrho"}]}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.427394612619*^9, 3.427394677493*^9}, {3.427394785447*^9,
    3.427394836615*^9}, {3.427394867925*^9, 3.427394887585*^9}, {
   3.427395101862*^9, 3.427395115153*^9}, {3.4274351908640003`*^9, 
   3.427435204149*^9}, {3.4274369771619997`*^9, 3.427437036578*^9}, {
   3.427600392140625*^9, 3.427600395078125*^9}, {3.42760088640625*^9, 
   3.4276008865625*^9}, {3.427601002640625*^9, 3.427601004921875*^9}, 
   3.4276020473125*^9, {3.4289915580625*^9, 3.428991602375*^9}, {
   3.433569940796875*^9, 3.433569945171875*^9}}],

Cell[BoxData[
 RowBox[{"ListContourPlot", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"mean", "\[LeftDoubleBracket]", 
      RowBox[{"4", ",", "All", ",", "6"}], "\[RightDoubleBracket]"}], 
     "\[Transpose]"], "/.", 
    RowBox[{"{", 
     RowBox[{"0", "\[Rule]", "1"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.432973265953125*^9, 3.432973360140625*^9}}],

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"nxz", "=", "6"}], "}"}], ",", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}],
        ",", 
       RowBox[{"PrintRange", "[", 
        RowBox[{
         RowBox[{"WithoutFict", "@", 
          RowBox[{"res", "\[LeftDoubleBracket]", 
           RowBox[{"i", ",", "2", ",", "nxz", ",", "All", ",", "nxz"}], 
           "\[RightDoubleBracket]"}]}], ",", 
         RowBox[{"1", "+", 
          RowBox[{"1", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", "\"\<stream velocity\>\""}]}], "]"}],
        ",", 
       RowBox[{"PrintRange", "[", 
        RowBox[{
         RowBox[{"WithoutFict", "@", 
          RowBox[{"res", "\[LeftDoubleBracket]", 
           RowBox[{"i", ",", "4", ",", "nxz", ",", "All", ",", "nxz"}], 
           "\[RightDoubleBracket]"}]}], ",", 
         RowBox[{"1", "+", 
          RowBox[{"0.5", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", "\"\<pressure\>\""}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "res", "]"}], ",", "1"}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.432274997585*^9, 3.432275087116*^9}, 
   3.432277437442*^9, {3.432277498472*^9, 3.432277500991*^9}, {
   3.432278042583*^9, 3.432278056374*^9}, {3.43229026025*^9, 
   3.43229028621875*^9}, {3.432290493421875*^9, 3.43229050003125*^9}, {
   3.43235249784375*^9, 3.4323525020625*^9}, {3.4325251413426247`*^9, 
   3.4325251505301247`*^9}, {3.4325261595144997`*^9, 
   3.4325261645144997`*^9}, {3.4325271725301247`*^9, 
   3.4325271774519997`*^9}, {3.4325282341707497`*^9, 
   3.4325282357801247`*^9}, {3.4325283083738747`*^9, 
   3.4325283089051247`*^9}, {3.4325291828113747`*^9, 
   3.4325291872488747`*^9}, {3.4325358971394997`*^9, 
   3.4325359003894997`*^9}, {3.4325363789832497`*^9, 
   3.4325363873738747`*^9}, {3.4325368057176247`*^9, 
   3.4325368447176247`*^9}, {3.4325378980613747`*^9, 
   3.4325379006863747`*^9}, {3.4331365339976254`*^9, 
   3.4331365731226254`*^9}, {3.4331423125601254`*^9, 
   3.4331423571382504`*^9}, {3.433569978921875*^9, 3.433569983046875*^9}, 
   3.433570099140625*^9, {3.433839529328125*^9, 3.433839530171875*^9}, {
   3.433839568078125*^9, 3.433839588609375*^9}, {3.4338396286875*^9, 
   3.433839686953125*^9}, 3.433843353890625*^9, {3.447410217453125*^9, 
   3.447410239796875*^9}, {3.447411971453125*^9, 3.4474120014375*^9}, {
   3.44741208653125*^9, 3.447412120375*^9}, {3.4600288547876*^9, 
   3.4600289145285997`*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
     ",", 
     RowBox[{"PrintRange", "[", 
      RowBox[{
       RowBox[{"WithoutFict", "@", 
        RowBox[{"(", 
         RowBox[{"res", "\[LeftDoubleBracket]", 
          RowBox[{"i", ",", "1", ",", "20", ",", 
           RowBox[{"ghost", "+", "1"}], ",", "All"}], 
          "\[RightDoubleBracket]"}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", "\"\<stream velocity\>\""}]}], "]"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{"Length", "[", "res", "]"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4325262033269997`*^9, 3.4325263074519997`*^9}, {
   3.4325269678738747`*^9, 3.4325269702801247`*^9}, {3.4325270710301247`*^9, 
   3.4325270895144997`*^9}, {3.4325278609676247`*^9, 
   3.4325278615613747`*^9}, {3.4325291996238747`*^9, 3.4325292012957497`*^9}, 
   3.4338394838125*^9, {3.4470668652398*^9, 3.4470669442518*^9}}],

Cell[BoxData[
 RowBox[{"Save", "[", 
  RowBox[{"\"\<Re1evol.m\>\"", ",", "res"}], "]"}]], "Input",
 CellChangeTimes->{{3.448435130796875*^9, 3.4484351443125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListAnimate", "[", "grs", "]"}]], "Input",
 CellChangeTimes->{{3.44835562625*^9, 3.448355655125*^9}, {
  3.45024919796875*^9, 3.450249199765625*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"Drop", "[", 
   RowBox[{"grs", ",", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.450249967796875*^9, 3.450249969546875*^9}, {
  3.45042588446875*^9, 3.45042588684375*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
     ",", 
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"res", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", "3", ",", "All", ",", "All", ",", "28"}], 
         "\[RightDoubleBracket]"}], "\[Transpose]"], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{
        "infos", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
       ",", 
       RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}]}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{"Length", "[", "res", "]"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4325262033269997`*^9, 3.4325263074519997`*^9}, {
   3.4325269678738747`*^9, 3.4325269702801247`*^9}, {3.4325270710301247`*^9, 
   3.4325270895144997`*^9}, {3.4325278609676247`*^9, 
   3.4325278615613747`*^9}, {3.4325291996238747`*^9, 
   3.4325292012957497`*^9}, {3.4325297898894997`*^9, 
   3.4325297996707497`*^9}, {3.4325298511082497`*^9, 
   3.4325298819207497`*^9}, {3.4325299781863747`*^9, 
   3.4325300091551247`*^9}, {3.4325302450769997`*^9, 
   3.4325302508426247`*^9}, {3.4325359928426247`*^9, 
   3.4325359933269997`*^9}, {3.4325369267019997`*^9, 
   3.4325369764207497`*^9}, {3.4325370209519997`*^9, 3.4325370289988747`*^9}, 
   3.4325372953738747`*^9, {3.432619521734375*^9, 3.432619521953125*^9}, {
   3.432873146765625*^9, 3.43287315721875*^9}, {3.432873202*^9, 
   3.43287323825*^9}, 3.432873300375*^9, {3.433570005640625*^9, 
   3.433570065921875*^9}, {3.46252230228125*^9, 3.46252230290625*^9}, {
   3.462522429328125*^9, 3.46252246934375*^9}, {3.462522503984375*^9, 
   3.462522504453125*^9}, 3.462522873421875*^9}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"DrawSection", "[", 
      RowBox[{
       RowBox[{"res", "\[LeftDoubleBracket]", 
        RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
       RowBox[{"res", "\[LeftDoubleBracket]", 
        RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
       RowBox[{"res", "\[LeftDoubleBracket]", 
        RowBox[{"i", ",", "3"}], "\[RightDoubleBracket]"}], ",", 
       RowBox[{"PointOfSections", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ",", 
       RowBox[{"OnlySection", "\[Rule]", "True"}]}], "]"}], ",", 
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"res", "\[LeftDoubleBracket]", 
          RowBox[{"i", ",", "4", ",", "All", ",", "5"}], 
          "\[RightDoubleBracket]"}], "\[Transpose]"], "/.", 
        RowBox[{"{", 
         RowBox[{"0", "\[Rule]", "1"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{
        "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], ",", 
       RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}]}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{"Length", "[", "res", "]"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.43287327315625*^9, 3.432873320859375*^9}, {
   3.4331366623882504`*^9, 3.4331367039976254`*^9}, 3.4470669937978*^9}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"DrawSection", "[", 
    RowBox[{
     RowBox[{"res", "\[LeftDoubleBracket]", 
      RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
     RowBox[{"res", "\[LeftDoubleBracket]", 
      RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
     RowBox[{"res", "\[LeftDoubleBracket]", 
      RowBox[{"i", ",", "3"}], "\[RightDoubleBracket]"}], ",", 
     RowBox[{"PointOfSections", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", ",", "0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"OnlySection", "\[Rule]", "False"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{"Length", "[", "res", "]"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.43287327315625*^9, 3.432873320859375*^9}, {
  3.4331366623882504`*^9, 3.4331367039976254`*^9}, {3.433839813796875*^9, 
  3.43383981953125*^9}}],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
         ",", 
         RowBox[{"#", "\[LeftDoubleBracket]", 
          RowBox[{"-", "1"}], "\[RightDoubleBracket]"}]}], "}"}], "&"}], "@", 
      RowBox[{"Union", "[", 
       RowBox[{"Flatten", "[", 
        RowBox[{"res", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", 
          RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], "]"}], "]"}]}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", "res", "]"}]}], "}"}]}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.432288679890625*^9, 3.432288699390625*^9}, {
  3.432288750078125*^9, 3.432288759703125*^9}, {3.434090774203125*^9, 
  3.4340907743125*^9}}],

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{"Log", "@", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Max", "[", 
         RowBox[{"Abs", "[", "#", "]"}], "]"}], "&"}], ",", "res", ",", 
       RowBox[{"{", "2", "}"}]}], "]"}], "\[Transpose]"], 
    "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.433092886363*^9, 3.4330929029820004`*^9}, {
  3.433092941067*^9, 3.43309301151*^9}, {3.433093364594*^9, 
  3.433093428939*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"\"\<divert\>\"", "<>", 
       RowBox[{"ToString", "[", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "]"}], "<>", "\"\<.gif\>\""}], ",", 
      RowBox[{"res", "\[LeftDoubleBracket]", 
       RowBox[{"i", ",", 
        RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "700"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "res", "]"}]}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.433847480765625*^9, 3.43384755171875*^9}, {
  3.433847891515625*^9, 3.43384792075*^9}, {3.433849876015625*^9, 
  3.433849887625*^9}, {3.433850433203125*^9, 3.433850440125*^9}, {
  3.4338507095*^9, 3.4338507109375*^9}, {3.433850760984375*^9, 
  3.433850776734375*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<divert.gif\>\"", ",", 
   RowBox[{"Last", "/@", "res"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4331388530288754`*^9, 3.4331388827320004`*^9}, {
  3.43322855728125*^9, 3.4332285573125*^9}, {3.433847335015625*^9, 
  3.43384733603125*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"res", "\[LeftDoubleBracket]", 
    RowBox[{"i", ",", 
     RowBox[{"1", ";;", "2"}]}], "\[RightDoubleBracket]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{"Length", "[", "res", "]"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.427592259484375*^9, 3.4275922625625*^9}, {
   3.427593328953125*^9, 3.42759333940625*^9}, 3.42759337525*^9, {
   3.43384337103125*^9, 3.433843382859375*^9}, {3.43384818284375*^9, 
   3.43384818440625*^9}}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0412\:0441\:0451 \:0441\:043e \:0441\:043f\:0438\:0440\:0430\:043b\
\:044c\:043d\:043e\:0441\:0442\:044c\:044e", "Section",
 CellChangeTimes->{{3.392105782605*^9, 3.392105784211*^9}, {3.419914379225*^9,
   3.419914383741*^9}, {3.463902758546875*^9, 3.463902763015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Maximize", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"r", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox["r", "2"]}], ")"}]}], ",", 
     RowBox[{"0", "<", "r", "<", "1"}]}], "}"}], ",", "r"}], "]"}]], "Input",
 CellChangeTimes->{{3.433586684859375*^9, 3.43358671346875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["2", 
    RowBox[{"3", " ", 
     SqrtBox["3"]}]], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     FractionBox["1", 
      SqrtBox["3"]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.433586694859375*^9, 3.43358671384375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["x", "2"]}], ")"}], "2"], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Ideal helicity in cylinder\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.450246797078125*^9, 3.450246910859375*^9}, {
  3.463912525046875*^9, 3.46391254496875*^9}, {3.46391446825*^9, 
  3.463914476984375*^9}, {3.46391450875*^9, 3.46391451475*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1mnc81f/7/xWlrKRQihCyCtnK67LSkFlUJJKshJBV9lZGZEtkZBSyqTyR
lVHWW9mb4zjnvMyMhu/53G6/3z/n3O5/nNe5zuN6XK/n4zq3F5+Fo8H93TQ0
NHepL/97PwMcxJ0dHPVJ8N4KEmRSctw6Gba1jaMq2lE8bj5QuaRMSmh1HUe3
hXj9cye+KC8/hCbSEo7kC00+8/MuKJ8V1raYW8RRvIhMQ38fLeYyZUwzMYej
4s6dMkvxI1h5mk364CSOmmzmoiX3iWC/jNzO943gyOiFa1OusDwmfzBoqPMH
jp4+blNqrlXHPDpeeLT04uhb0tvfd2N0sdrg1xz1XTiqr3Eoubr3JvYb3pfX
tOFIGC+WaI25i53frjUo+4KjQD+4Rvppg3mXty29q8PRd28tAxXOR1idw0BU
bg2O/Jf50ovW3bAd4RnxjHIc1W24MZxQ8MFUppfbk4txdG3xffHp8EDM/9WO
TVwBjqZbilu+joZhjTeY6SNzcMTzvYheXD4ao2U7lhOSgaNaN47DgsZxmEan
sLpfKo72Lt66MFWbiAWHyE16JuBIoW+udvlbGtaiouHr8gJHEY9UDglez8T2
/dbnfvic+nnd9dLBd9nY5Qqzj1ahOLrgURZj8SQPi3B8eMs8AEcZva8qVr6+
wzpFnmzc8qbqLcz880VPCcY8ExZ/zQNHp/ouO2+HlWE66QnS2i44Oulq6jgb
U4lF38zu0XTAEc2TbH15vAbrZit1VLHFUWn5Cf+9BZ+xg12IWckSR4rn7by6
pusxg9CuQmkzHM1Ly1HkTn3B4lSHL582xlHqLYacl2+asf7fhHkhQxylWehQ
rt1qw9grfwXz6lH1O0GU2dbpwIyc6AS4tKj95XjZLxD6DUsUZWs8pImjkR+v
3Zt292A/Z06YM6vi6PAjw8ytuV7M5Na5NBp5HCnFk7VUhX5gaYcuK21L4WhG
farHOHgQG+sy+rkqjqMDb42uBx8cwU6EWbqRT+HodZ3T74nOMcxczfnwPD+O
3qglvu4cmcAy//iWTnDjyFVJ23bFfgqbqozUGzpC7V9naOvuIzOYpVj+8y4W
HLWtMyUEfJnHcmYrRVv348hQMtVCt2UBm3vd1FZPh6OEymLrBsIiZnt4gq58
m4IwoedpzZeWsIJv5Dfv1ynodTVDiWzkMkYK+63ydomCJJL0S2hmVjCHvxze
KXMUdOTNcvbVjnWsuErg2MtJCjq/Ky5LyHQDW3p0tiZyhIKyhkKTmem2MOc5
7XW/XgqKYTvj1h33ByvLMInz6qKgg6qtWUd9/mFrxrZSrm0UVGSlIySoQgPu
34MeWtdRkNOH8ZFC693wfNHtx1o1BXGzxOReyaOFN/S2qgFlFMTr3FD8ZZMO
OkGb/VUeBXU2iUWodNDDlAn4imZRUOzueXtNnf2w4S61UPWKygWkAtFpBuAv
Yf/cG0tBssJJ41kaLKDQSX/KPJKCTnpJfj25nxW0CVsx5FAK+hfXEba6xQoe
vGOW+7wpKEjhz0LWNht8i8llwqwpKL5Xw/ewHyfMvEty67hLQcAV7ZRWdwS2
2iImbt6moO6+f8v39nOBwC7Hchd9CgrBMpUmmo6DEvddnl1XKYhN+irTGTke
0FW8FhalSUG6ma99yeUnwOuR/O38cxSk9LHD7e9DPoiJFGmRk6MgEulQuYsa
P+TkH5NskqQg0cAHKqo8J6F7cod2XJD6ffcyrYNIAiBk0FZ4mJWCLJ3DB8UI
wnDeoZb9DQNVr4lzp4Z/i4B+xDtfiT0U9ODY2ctnjojB08aYa1e2ycjO8ZmY
/YPT0Hv21m/fGTKaWrBbCVaRAoKO1n3mcTI69E8vQQeXgr92yt9TBsnIvHYf
29GssyCcxZdV8Y2MDngmK7JwyYD3IeKVxWoycvoY6PX7ojzESoyUe5SRUaix
zaHrfAqQp/WNZ28RGXGv5OtY0yhCb2DpCm8WGY1h90KPdyuB8JpXilEkGQnl
TM+aV2OAsT6kmwkloxuFh1+INwJcEzdzeBRArY/8ZUzRVgV8LNXVnruT0RXJ
lDcPAlWhv5+R2HCXjEo+DP/5b0Id/C0r6gpvk9Fz/cbPWm4acGbtTlz8DTLa
88TKZZHlAoQdKj1vq01GeqLZF3sva4Kywc1oVkUyQguC/hbzl4A4uctyW5qM
AsoVoq4mXoakR4UKM2fIyM9F8nX5lSuwEvNvskqAjPqlbwaJfNKC3O/ZMmas
ZLRDH3u5r10Hrpnp7L/MSEadCQcEhhJ1gQbfGD27l4w4Nb3yjGX0wJhFK3Tv
HxKKorBLMzDqwwHt5cH38yTkrr/ecr3bADzalX3/1JEQ3y4vZVdkBILG89fm
akioqKn98dmLN6B3IUa4u5yEylkq9sr03ADx/TM9WQUk9OVb1Qon6SZMXowQ
0EogoaTwq0O7MROI+iG9JfOChEYSQvOe/DSB89ajXTzPSegYx5uU+49vQ0KI
pPuKPwmFJufQZleawpXmga/JD0nIMIwhtlLMHDau+6UH2pAQl+h22r5Ac8ie
EXF5eI+EVl88ci4YNocdWu/jqrdISGTs25mFmLtQrnbSkaBBQgu/tGhzGO8B
d73jYfnjJMTf/99IvoYVdLLJuipxktBB09i5MyVW4HV/u0+ZjYQONGT+Pclt
DQMMwXEa+0iIkcv7me1va4gxTGEzWFtEQf2lHSVfbYF2sYn1YeciYlzbn5lb
/BBKlSOcnFoXUaQrYvORdgDzGN1ul8ZF5Jll9nal2gE+yQ5Fe1Uvoozpfc/q
2hzBzQ9nCcteRLsabVSP/HOCBXYu5qyni8j1wlvSE2MXSLIZt891X0SrYZvv
tvNdQPNjdme+8yLiTFjKu7PtAm/MJZ6X2Cwiu/qn/4ZfucLtQg3GuuuLiHvP
fy19+GP4ruK4f1B8EYXn2hav1XtAxYOmPQdGiWjP4chnQ3y+oMDrIJX7g4ge
mRg+lUjxhdp+TlPlXiIyyonMmd7vB/XKD8oftBKR7lqX9r1gP2g/wHav7QMR
Xbwh28UV5A8TZWb1/iFEtEl3YlYiMxAsbPaTjvgTEZ305tnh+UCYPV7GWfKE
iIZFV2nkJIKAGLzXccyJiFIcnib8RUGwfuM99zkTIuroWJsmLQQDw59trzUJ
6vXZYwuYzMMgsiQ795koEeFsBtacpWHAel+nl1+QiLLA+/Y4XTiwf8sU0eci
onr/bN2Cd+HAm3Hp53s6InpRXTGivucZyGokyFoPLqBmqWd8KsORYP5camkw
YAE9vzOUw8gaC17lsSFd3guI52uI/FG1WIgfWT3e4LGAihXM/YJcY6FdvPJy
nsMCen/ir9fjoViQ7lLKcjNeQF5uzmNfC+JgL4uG0aGzC0jfNXjB3zQe3kUb
fbo6SUAvPWh1dZiToaWqykBlhIA6Is62F2glw+T4kQXpHwR0FONId4hIBg7J
YfZjXQQ0m3LP+fT+FPDtNnNcqCaggn+HiqIZU8HgoC1/SAwBrbqohQkIvILN
2CdhCAiIkmb0RKEvA+aPNxA1lQgo5oNsk86fDBjI3av9TYaAGL5voFzBTCir
fXFwVISAtqoUnY57ZoLD1NuU7UMEZJr6lf7kyTcwLdX/TpYwj9o57/+qC8yC
b93iPYUx8+jCn2P/yXjkwidjZ2npZ/NIqZO7sj0/FwpnquJrg+dR2rr9UO5w
LoRtqhl/9ZpHtgJsjmdV3oI6763pOct5xIPCLqcw5UG1Y/A6n+I8Muy7+7u1
NB+yWMaOJk3OocVDuePWsu8h1gToFUfm0I1zYhjF4T0E5GWsDQ7Modtxie0f
896Dhdq978c655BNoP9Xce4i4HcjBL2unEP/2Tn8tNlfDG9GV/DcZ3OoYCH8
aJF7CWS8o2+pkJ1Dez7F6Ix6lELaFSnnvvBZJD9+3pu0UAkCjFfau4Nm0W/e
CGsd5ioo7LDg/+Y7i0xrBpe7Jaug9urL3rbHs+j5VtmyvEcVDOpsnK27O4vo
OLH5yH3VwHHt82qe4ixyiZNMN5GogWiTy499FmYQyc7+Q1j8Rwiwv+shcnkG
bUlvMLBb1MNY1J20WvUZJMvSqFTuWQ9KH0zqtbAZFHdrI9LqRT2srBvuc5Ce
QYt6mfF0DfVw1/dKUin3DFJxPjUvyNcAKrHS1edWphHjeIf675kG+Fe1Z1M7
dRqN3/8zPuT1BZ7QFrg7k6fQ1pcZx+CxFrjr911gIG8SLTLcdmde7oL4z7NJ
aXYTKLhexphmtBdqx4WZ3vGPIY9npxosnvyAk6wqatfTh9HeEWH5UwdHoFQ0
zG5q+ifK5n8pKJ46AePNH3jl5AYQ6nOZKRCahlnx+LOosg/xvNu+f9hrFg76
5Mud2dWD5oz5bcwn5kFcDhfPWe1E/Z36tQR8AazO+PrWjHaigA4dTrPNBXgt
dKC3q7UTlS1JH+2hIQIbp4T7r9RO9JxFc/vtQSJsbDg0XNToREOixCpeaSI0
1lAMiS870NFucROlx0S4qUzxkZBrR0ZyMkFL60QI1CB313i0Ip25zf0BhEVo
vETSlbnXiq5P626n44tAo734rUi7FT1l5/tU+WsRnhoudGbxtyK57bWcAToS
uFnNtkV2tqB3M+rFP3hJYBM2Wn+XtwUdth8PHb5BgqudXSX725qQUvjp670N
JIjo7pQIKm1CH9Iq6tTaSNDW31H0L60J9X+ti3z/jQQXRr++W33UhAjGNled
h0mAUZrzRo81od4AbKVqjQSSrHUZHxy/IHkNbS4pITKwXy+KucXZiGS5L6o3
B5GhVOhZ7QXaRhTd8lCBK4IMelvWM1J4A0o9I7hhG02GiHQ+BYbWBpQnvdy6
lUyGf4SX47VuDcjhjojbUBEZ5ryfnDk+UI9uyxH3pP8gg4Pui6TPIgjV3tl4
xCNIgby1K6T4XQi5lJyHNhEKTCXTqTgM1qEraZ3R9mcoYDTjPs8TXocIqRml
2fIUAM87cn6Ez0jw+8OW3ssUYM0S61d7+wmJ8gjbCjykQOmv5gNtArVIoJlL
IqaYAlEFbxqxrRrErV/fOlxGgQd3fB9XdNUgCb3EHN5qCgi0KAy/catBLRG7
hBPqKZAQX5jr3VaNltIyGCR7KOAl80JZ2r4KsVRdsuVeptZDeLiUr1KFnvxH
MPizRgHptCtZvOxVaIBCMevfpACJlm4/S10l4tGSHXGkweFOn1s/4UAlCsEL
hK4fwEHN+faD9LJyVF1HMuoWw4FHSJGHPawcsaWrRqtI4PB7kL3n2e1yZITX
duafxaFc9buc555y9OrYPj1rRRyEDqrtvn6jDK1FXLsYpYkDQ8mp5P2/P6Cx
4G8+EWY45AzPRi4EFSFfY5bdUs9xGHrK8fqVdBEqEDofGxeFAwvPxRL9qffI
tSh2Eo/Bwc08r7cG3iPbQ49r4uNx0Jy144zYLkQK1R2SCek4ECh4hqhTPqos
XbttW4zD8Rje0jGefLRU/OS+9Qcc9KT0v8R25SE3/bvcZmU4VLuUzm6L5qHV
6prEc1U4hG+6inbM5qKY+RvpeXU4iO7eLntgko0OrnsoGXRS9ckSbT7BkI0e
DXL3E7twiNUwGeirzkJcNNKs3t9x2A75tHmOIwuJnf5hH9WLQwejrzJTTyay
utuWbfkTB5r3xTr1vpkoOygNax/EQUZnwsz1TCbSk/N5LDKMQ1qMasDIswzE
O4ZX9Y/i8FN0X9StyHS0XPSfz9gUDioPbUsaiK+QpYvWEusMDnnF7b0il16h
OkPB7fOzOHjKRHJu705DwaPz/f7zOHBhbJkpHsloNulJUt0iDgF+Ll92DySh
d8k9dZ9JOCw29s/aSSehEr40z0oyDp8uJoqeoySgGxe+FbzEcTDVP14+fO8l
eue6d4l2FQfS6rri46Y4xBw3/bmDyk8TviMWwThkqcRkGrlGrX84oEN17gXq
ZFtm/reOg7jPbf1hzReIzpPpxPtfOHzklfvh+jYGNfRK0RhtUP3S0dus2xOF
3N3dpOI3cehnDekJiI1EhOcM/mJbOKwaKo5WXHuOOMRiX3+k8tmJ12vHBsLR
zKXAS1+3cdAXvEajmxiGwsXdezV/4+Bkt5cp4GYoOnPXRbSOysVr9icJQ0Fo
8nyVesofHL4p8kocSwtEB2fT6XaoTPHpU9IxDUClE99iTf/iwNwUounP44/k
V7gpFVS+yeaabYN8EXfMfY59/3BITBv6+E3VGzHN+jNep/KAkGqfTJMXmv+u
35VM5cMf3hJTND3Q4HSlySCVr51j2b3r62NkbxNfybZD9Uuz61FrLRcUcKt/
9AKVu3WHJbu6nJCftWmPM5V5ygNjrDLs0fmN4y+SqZzapofO5lijQ/y7uWup
fGSUm/Iv3wL9rvjn2k9lsen/FBNMTdBjWfpkApWFmJwSz1jro+wfbOG/qOzX
L9x/7IsygrBjF/5RWfzAqN2e0wJQMM/dtUPlgeWA16ybl2DpylG+31Re0j21
4uhsBB8+HlBdovKTOM32BzLmoLq55/Q4lf/5eKa+lrgPES60s63/u77dO/s+
UTvgMGSzLaAyrdG4Mr2QIzB4Qk0Ilb/whoe+YnWGo04p/92mclACv5N8lCsE
+crWiVNZk+nTzR5Gd2DOFHT5RdWLPsBQ9UG4JywHBKzVULltgyKyh/4p9IZa
qblTOeJhGNvrIB8oaaHcPkPl3OUY7+P+frDAcE5jnNova2tRq8p/AbBi+M7z
DJUv8bsbByoHgasHT1sntd/Co1909J4GQ/gPyrQllYkGpvLErVCgA4ugAKpf
2pkLxKoUwqF9t83+fVQubPt1Isg9Aio8X9wOpfrNHovZx7P+HPaUnHVwofpR
e2vkD1E6Cp628p+eoPr3TLnIcpVzNDCqnfqoSeXNl5Mk4c0Y2P7y5MIuqt9r
GJ781/g4Dtz6dY6JU+cl4zR7XzH/SxhkPmxuRJ2nEL3i7rTvL2HF0/KO5woO
1xOmO9xEEmDB3Ck8f4naH76rjaKjSSCUHJpbSp3fHxpziJOag6NcxpveUOe7
ztrvM518CuRaV2Y8I+Lw7H159VhMKkSZ8cddJFD9ochdHKuRDk5aYS420zgw
3a5657ucDnxp16N4qPeXVR/9Avv012B8IeBB1wQO5lONBiefZkC1aY0j+xj1
9wlvaP/9LxNy4uzLdKj3s69lZhofwrMB/1bXa9WBw/lm8S+nJrJh4vB/9vlf
cSgZ2FJNl8sBOu3B/2ZacUjYioNn0zlQtk/viGYTDpbQpnRf+S3U7tXwLP2E
w067pNTR5Xy45oDCpd/h4Dzytzj6YgFEDCSE0hbgMEduP7M3vQA2DiVZdr7F
oZP1vvjqlUIQOfW2/lIWDilGyae6st+Bt/17PlIyDrJTu3j8bxYDt8KvpLFg
av21N5Yl84tBPXVH1y6Qqkfs+6aJrWIY0OKaxv1wYMx8J5uhXQKDqquZhCc4
/NG7ObJDKQHCoaHMmEc4jJYUiyCpUihF6SUfTXB47XSnSbmqHH4fvvI1hHo+
pt3eXxQ/Xg7f2UdN9IRxSLpUnkimrwD/G8KrhwRxiOFlePDqZgX8FSiRDeeh
zk93xcG/WxWgsP5SWvwgDnclmc0+na+CUNHRe4brFDi59HFLqbEGTl/Rz4ca
CjztUg9aI9fA9xTj/zbKKTBQ0MFSdLQWzmawyOeXUCDi/vBJvke1kDjpnb3x
lgJLQ9va9LwfYe2do7V6AgXqmhXf9Hl/gnTGrqSkRxQwTq26Yq+IQLYpvfrK
SQqUe8B/gvcRMMYLnjvDQwEWo1az8RgEjvSiaoxHKdDA+sPVgIBAXciO8IGF
AofVn+imadXD+yOVkx+2yPCkOsUzYLse3vJ/X/b5RobLWYNdOjcbQb5eKeSu
CxmWgousmh82QpMI47uEh2Tqfh64cy6wEXoXTi82W5OBcPq0lEgRlemPN7Dd
JkNYtd9LWrov4LrOyWOlQYa2rlMm1cVfYF/qjOKvQ2S4uPmYwEffDEuhLB49
RdT8qM1Gu17RCiol/fQi/YsQbfbDT7KqE5QOzAzL0BOhVYebWY+tB6Sqm/Xr
euaBzMfu05vSB9esF0dj4mbhsavY3WiOAWBiP97zXGMafoywGli1/QQllXvO
+hUTYO55fp7+6jDkb5V/SigYgS9i8hFf9oxB/F9bpfaiHyC0/xMh+9IEzNSy
DjNo9wH3pwcX9oRNQtEuwipPxTeg2d6d7zw1BdKcF+onOFvBfHpw1Xd+Cvo6
/kb5/m2B+s4SLJI0Be94Lm2dnm4Bv9d3+t/+moLbnAIVNUUtsKNRuzPCMA0+
T7RuRGq2wL/oR0YXpaeh9Ld3qIhnM/wRnKA9HjQNz2wvchsSv8CG/uc7zYIz
sN1ldfDq33oIGCwexcRmgCEx6Onh2XpgufvmdrXkDPCNBmgtddaDkFOoceG5
GZjkFzsxlVYP16P0jV7oz8A4IWy8SLkeStpntU29Z+BVz1XF0T0IbNVZlNf7
Z2CZR0pOQOETrLXTfHIYmoGl+uUj8UyfwM9gVYkwPgMco29PnJ78CEl3fyoM
E2egkJ4ltTfiI7T4vpFpoJkFucZovdXxWuD/JCceKT4Lqdfs3J69qIFhGbNj
gkGzwLHYcJGZrQqstmQPBIfPUnPii2PspEpY+sxEOxs1C6fiHrirtVQC3cVa
YnbyLFyblKlmflIJZ26x1woUz8Itjwjy/bkK8PPuuCkwNAvH5N/IHm0qB6EW
+YSTknNwY2N82jK1FEoiWCICZeeAVlbr7yGvUlDSnfWeVpqDnEqd+fmbpaD7
M/Z+1oU5UKdNZP7HUQoeRLLMSZM5OK57G029/AAdLNl9/CFzEPhh9UxIYgk4
3WA9yD8yB91eug0zjtR9PE8iRXByDpR+tVlIKL0Hwy2dkyJzc3BPUO5XFd17
UEqNlJVcmoOGYUpOQMo72DPOYIzRzYPPrSzaP22FkGK1J8tYfB6uNFau2UsV
QNPjbZm4p/PAtzuVrUTiLVS2HK1L8J+HP8ohCjG73kI+p+LFlJB5yNwnGVPY
lwtRNe63MmPmIW/5p1OcRy7c+rvmXZw9DwWe4WcFm3OAEoS3dHTOw4E3P3cU
bbPh6MuZm3TcBGpuGxe3G8kEhcATHK78BNjQ2G0nX5oJRs7GfdOnCGBEkZXU
DMuEWL1u7S9nCXB9n+rnU7KZwMT8SS3gEgEmJX7E/XqRAf+C48RpXAnQqbeV
qlKcDjPuajR/2gkwZWeSSCuQArutvT8/6CYAHZ9VksV4MvAaVXsN/0cAjqx1
WaXUZDCVObNeO0EAlTtco/qHk2Fg6SjR8xcBKpLSpo8wJcFX2+W+Db4FEI87
MVx+MAGKTDLernosQJzC0+1w51iQ+XFye6/PAugTmTJHIRY+Gry9yhW4AAyO
d/5EM8dC2+WiZZXIBXhcIRt6oOAFTMt/OheVuQCm9VpDTvMxcOTwz+/C7Qug
dN1OYW4uCtKjTfjPf1+AIA3LbvbIKBBkHHfV7V8Ay28HtDepueDs7rmjbmML
EBIurNEXGAnaS6v3vqwsgK6poco3secQ0Hlg0/QYEQRF2UYhLRz2XYq78oiX
COObU+pXtcMh+gvHqyBBItgavs2g2QmDtFputUIJIqjIWLjcsQyDqjyx55vq
RDhr+508JBcKpKCLvHH2ROCQ4cpS3A6CG8q+l9o+E8HieuizF+t+MLI+d6Cx
kQj8RwSrrD76gUWRzo+PrUSw54243UrNUfYneKyKe4hwIeXVNWFWPwjY9Tkw
YZYI02RntUIrHyhq3q6zZF4E3CZdKVjwCcj4WITcYVsEDSftvs0GL6iRa9e+
ybkIefwykg/NvKDpbfKIFt8iTJnXZxi88oTBcIXts7KLMDg4Lrcg4AF0Om6y
u0wXwfjg6D1Gi8cQsXfsz/bdRWharFCfZn4MB9CFpjWrRQh4Bl45ta7AJcl+
jeC0CKOFMlrTHK4gwVbu9D1oEVbd7nFyDzmD8cBy4at3iwC3Oll0IpxgIuqW
S+KHRSjL6XzCr+EE9y82KL2oXISzfqJu8X8dwak65mtQ/SLc2+vIy092gJAU
ifkH1HNjykHeKXXcHj7ceciv9GcRmAZomJIP2IJFxRJ3xi4S3GURmSiLtYHD
TK5H99KTQIarXP05pw241Xix9h4kgcLEcTdrIWtQOhz2z/YUCWbtiGP3bt6H
RTvG7e/iJHjcqupHv2AJaQ1R67JnSfDS7IjK1SeW8M8hnrRLmQTsJ5tXC7Lv
QePXN0PJBiTQmm3SM2awABdeoYGdGyQwvKW4J/vtXRBwz++5b0qChs/ncpw1
70KIQEmblA0JxkYas2PCzEHL93PlV28SCA0uFg6fvwP9Mj9jt/JI8Dua9qPm
sVsQ/Mwkyox6bqZ/7iiTCbwJclNj4c1lJDi+N6fuM/kGJEXP+r2oo9aTstwV
3G4EpsQVB5F+EoiRXu2WfHMdWFTd7KIHSVA+ofpGgec61Cdu3V8fI0HH2HXV
3LRrwH+BxrRhgQT+Gg+/xGcYwNxrZq1bOyR4bnCylrFJDxJ/xWgiOjJMt2pw
BRjowSXtw2qCDGRw/31rU69FFwq2uRSXD5NBcgXUB9h1wNFQ+FS4KBk4eWql
BOavwCaDOm2NIRlqXsSpx128AGwUlpeNxmT4uFJRolqsAWI9QwKdZmSQF0++
zMKlAXcSnTXHbcngmcHQM7ipBl9Ovgnf40OGldU67pNDKjCy14HrQCAZWi0m
IgtvqcCvBcXCI2HUXOOTkrWnGkC4pKdTLJYMr8vqB8k9yhB1fherQS4Z3joV
Eb9dUIK8E10ZJoVkMOtW8CtxVISG3clS90vIEPEq6UZCugKstUle86glA6Pq
hdaTjPJgbGiekE7NSZYqxFplbhlwVRA/lddHBnZXwe8KD6Uh8thm1YefZFBt
7nie3XAW6iejB5umyOBhKcQS4i4Fgg7o+OIvMmTn/BT5J3oGMP1n79d+k2E3
SFocZTkNN2VuYP9oKGDvnGb5e1MMIrYpZgcZKfBraNAvYlYEskdrl7hYKZB4
LCBgdU4YPteH+AuwU2BlY++JVPwULIXwZMmfoMBkGY0tL4cQMNgRpVUFKHCc
3qH1o7QgnNSubLoiQgEfm5aTB28KgNEhnTlTaQpEvzRosC7nh0+vvUWCLlLg
hu6kc4jTCRgIuFwbeZUCTNcfid5g5QH8PrtWoj41R4ad/vX643HgF39vX2BC
gaKo6wI50lxw7oDn3zJzCoz0PnYn7ByB6ysaUZ/vUwBp+zd+GOCE0OqR4m5H
CkhGdbUvvGGHjNQ8lSFXCvh2RqZNJx6GWh/XnmlPChh8jX7hmXAISBpMq78C
KSD2aoYYX3wQDHrOyXEnUeAQZZZlLoEJGM4xNnx6RYGhi8TM2kkGaMge0rqd
RYEWL9GnQir7QdLD825qEQUex9nVPZXdC4TJSyQlag6XE3Pcc6mDDl5rHXEf
oub08n4xY3tnWmA5UfX8aDMFbMIVeBNWaKAlLISzpp0Ce0+bPuKI38G8Vwzf
3OymgLOc84NH9/5ipOa1qsRhCownuipZ3NjCsiSa1OQnqfoY/t1Z99rAjJPj
ugbmKHCFRc3/V/U69tX+7DT7CgXUJI5uWvqtYH4DuxwqNijQymGSsES/jCmo
9Gxe/0sB+QsZuZeu4hienxG4thuHi57iVmfLSVjuISeWl/twEFsoqvl5gYjd
8YZkaRYczIjmF3125jH2eRaBvkM4BLMqn3AYn8WCat8rsp3A4UhUpW0g4xR2
XsC76YMADo4dr4tsr09gq5FXdfVFcejKGWJS8BrFCjaODS1JUPc+vmLgCxvC
LO4uWsbI4nB00mfn+fcfGFdHLS5xDofpjQWhZ9r/YT0yEV7fVXDQS+cKUd7p
xcLSb+1x1MThXFc0/c/Jbkxln0gMy1UcmFWZC1Rnu7DNR5tcRfo4nGbaszVh
2o4VD7fmaN/AgTOOIGop3IpZXUiUJN/GgeMwTWcLNGE8xVYfn1vgsK7TxCr6
ugEbOCKnKW5D3Tu7OlULAuuwyIA9PR0PcdhqFWu206zFNEj9Jg9ccHgwtf/5
Z+9K7I9h9hyDJ3UvnDHkP8JXhpUjl0cFPjikcjy7gQmXYA9E1P9cDsLh0gfz
omCOQow/ji10IRyHWcH8wAPBudjQn8mD4dE4SMkdjPSJfIO9sPqQJhxP3YM1
TFZL1NOxS91+p9pScND3mfoTYZuE0SjplVpn4MD7UPjISZc4rCrrhDJ9Lg45
qeOclTFRmAMz3ppbiMNx8ROEhuxQTMi9zkDzA1UvGzOrexv+2OhE5OhsJQ6P
Tu9NeVjvhb28YmoTTN2z95P7Hu44u2BXy8VXBRqpfnhsdK7a7wFGy/PHu4m6
pwuwiDE+/26B1YZ27LPswiFxb/BwcdVNzHk5JY62DwfaChr35HkdTNTEjifr
Jw5XP8N7BgE1bLJJMV9tDAfBqSxtmzRpLOnMfpmpaRzkS0K/EZf4Mb2kn3X+
C1T9qrQGvA8dwPbtzrvMh1P36vLMCZMPq8rogXt//RoO4b7x+SMi35Xd/tM0
M//f/3y5Nw+3ykYr/7/nv+D/P//1f9n/t9I=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotLabel->FormBox["\"Ideal helicity in cylinder\"", TraditionalForm],
  PlotRange->{{-1, 1}, {0., 0.9999999052226844}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.463914493125*^9, 3.4639145090625*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnHmMVdUdxw/z3gyCuKOAG6PWsgmiuAAKiOwiq2wqIKsOIqAsLogK2moX
rVtbxKq0VTHUJmJsNU1s2tSkrUlTk6amTdvE2KSxf9SY1DQNaRM639/v3Hvf
98333HnDoK1JCTPz7lk+v/Wce+65975ZK7e2rd2wcuu61Stbp21eeWvbutVb
Wqdu2txeVOkRQo+2EMK/WgM+H2r/GH8dav9/aB1+oaTzzz3xp4KuTVZgH+0T
fppwMBMf7VOlrol3a//3XOdNru5cUNV7HCXqHVulsvZ/M3RxT0F4uvGmVzWu
QCV+qOTG5gbXe6KEMhkfvLQ5B9XUf/oGfQZj0H2Vm/MsfrazBrP+W+rVEZ5p
vOnVXVa5Z25uS/6pmAyK2mdF2UzRN47vH7roQ7VCD3xCVWaJGbUWv3p4ae+i
wxXv/Pov+Am97XfL3Ld+9t7Ovc/9KvtBm0effOLnTT/ZtPG10POd1au+f2jC
uD0fzZyxFyV7H3rwp3e++MI73lnocWw3yo47wrz/9TJlr6din/4ffvgP+Bi+
hs/he8QAsfjFurYDOH5p1843s5BV8CFUpr/9yz/XRZjxzR0SolRD16bX8R9/
fBCwFW+8/vuH9jz1NqRnmiBZIDY7zf0/G7plb5/asiU/fvNP8C9G4Qfz5jwP
v8P/iAPigbg0N4jvYuR72e+W0e/+9q+3vvy937yxbevr/5wy6RnkHNpdKLpc
+Sk4aaAoG2m/ex518OC/4TBTsT058Reqj/zjH/4WTu+aR85w6zMkrIf/4XuM
zPNFl2tE2XxRNsJlt37wwd+Be2/xwn3QFGJCa1rL4X4A6ZgT0G33Iw+/BUx4
QHTb5e1h/Ct3b/8R2qMf+oehjnQrmmFk26sH3s2Q1mSXQN5nv6sQCSSSEmcP
1yxmRDUjYT4C+T4BusebojpzAUCuTxhV1AICMcjCewVoh5dh+vndsuv3w8Bw
gVMudsrg99//CLMU5IC4Q1C2e1MMJky1CDZsdIPCpd4DbAw/c/jdgnKXl8Hh
EIghGi5yxGivghWZ01yoEe70WjgOHaFx1D6M8SpoBo+bfXcJ2XfgdxOCFyqw
Mq+IClzmfeAE5Jo1uUNwtnkZ6uEFqBSVD5d7FdIUqkClcLtAbPUyJBGssTOD
mxHGFdGCJw2xTSC2eBk8DYSN37GOGF84OUdsFYjNBSIPmjshTBCILQJxm0C4
E8IVArFZIG5lXxjCnRAmFikBhEXkNoHYVGQA2pkv3AnZdItsQkRqJRJiYxFU
ICAyOiFMKlLPkqdGokIgJyygOIqIyV6FsxQm26K5ETaIWvdemOJVUMnWKTja
IGTf4mUYTxiddjSREHAOxpX5VyHWC2e798JUUXWLQNxchBKibI5074VpQsH1
aQQZHBHThZtuFgjbw2jCrDiFOkJtqGVzh+rYVgw9BNGOIsIvviroCoR5YJ1A
3FQ4G3OtecC9l127kgfa0oj8dIejiJgpMuwmgbixmIaAsaNphKAQ3ZRn4tqi
FurbmHXvZReKxLxRyF4rAhgRs4T6awVijfDUDEJAQZwQLQ4KsVoY4gEIs8Vw
XpNGkLYRMcerMF3ZRFHTnBCrhCEzCUEJpRArRUJ5KMJcMR5WpRHUjhGQDnca
3ZZjyV07O1Kr6RXCII9WmCfc4JI73aLoRBqmdFso4ChKi8tJKGEnAhzN0dJa
6qR5o47SbvAyOonMJmlIA6RDmTS1oWUurqJ6WRGK/HzuoGzRTDPC7C7KqLNo
uZchH5AXNWpn0miIJaRVS4NIApeJAek5EBZ4FdZtWHsV5tVtFKmNlGUitxkL
/SHRznvLBWKpl8HhyBk78owNC0Xcl6URNOdFxCIxiywViOuFqPmEIAUV4jph
sAczLBbD5fo0gtKCEaSFQlwrphQPRVjiVZh1bdGcSzTCtUI2d6SUvE7Iju1o
svQYZnRKlGvTCGrHCNJCIRaLdh7DTGmiL0kjqB0jiK4Qi0Q7x2Zhw2Czi6Ua
iQpBWjCCoqwQC5PaZilM8V6URgifZQjSQiEWJCOXDWfSYmEaIfKndubOtViY
p7WaTj2G2WxEcVggZF8jZDOC6AoxX7TzGGYnN6Int2lsWb2UOhJTdZwn/BMR
8TSOVYFtBdSoqhAUJUbQvKQQaqnjkcsWSDQ7zksjaOXICHESkQhanETEKqHF
XIGIK0c6UywnBFXNzTNxjpAdO64WVXOE7Lh2piukGwhBsksQZGZErBFazBaI
WcLZKwhBISpBkBaMoERRiHhBhNMs2tmRp4FfkdhQKelIA662Y92QmiUQ8SoO
JzrsuFo7D352TUZDynZkapb0zbRis26J9dVMMfBYEEXBd48Oe519lXC951V2
mUvrqLFampGrqYXoVSJPWQZVlcmou04xK5vxebpI5CijTVSN0TKK+8oqMnFH
gi481pAMClp3ZNAoYRkUqrE5TF2GqIBPF2PIx0C2u0KjZEYaQe0YQaNJIaaJ
0eTZnW0T0aXX9DSCXM4IGicKMVV41DMy2yij/YZpaQQlMCOoqgRB+RkRcccP
LjLl8uZGiNuMuP6xm+I4aqOO5JypQvYUkW6MoFAqxGTRLj7TFPc86epjShpB
qzJGUCgVYpIIpadBtklMl4qT0wjaM2EEhbIEQaGMiE0ilJME4koxyawnBAW1
BEEjiBEULIWYKNp5QmRb+TT61R1WQ9gZeQN1pFBemSfzFSKAsWO8/0AnoolC
YkTQfikjKIAlCApgRMQbKVDOrvNrmhNigjBzIyEogCUICiAjaOJUiPEigB78
7KYSjcoJaQRtEjGCbFSIcSKongbZ3TEalePTCHE3KUNQVQmC5nJGkIIKcbkw
2HMqu1NIbhqXp3XsSGtD7kghGidkXybaeRpkNzo7rjw1ghKPEWRZCYLmr4i4
QwyaywRirIjXFkLQ0C1BUNYwgkKpEGOEwZ4G2R1vOg+NTSNoBDGCgmWPNSQf
RU0uBUeLoe45k91rp9P2YPvdnQ3j0SJLWCCdlQ5DoC3VL3EWTaRRzHaRSYO6
bdelIu9uJ4GUd2UCK6lgRRl0jmIZlJgJGepxUWXRJSKHPf+zR0BoOhqUJ2Dx
XGgJlvKasZTXlwrExaKdj4nsoRiarC5JI8gCRpDdCnGRcLmncHzGh2eQi9MI
ShpGUFUJgrI5Iu4VY+AigRglDN5OCBqthjDCKDFDcEc4B09uWoiU7AtFKD0N
4hNXvAYclUbQhMoIug5ViAtEKD0Nwk5ho3r+LyJoh4oR5N8SBIUyInaJqgsE
YqTImnsIQVUlCJpkIuJ+r8I9GHvYoqY5Ic4XBt9LCEqoEgS5nREUrJF5To4o
EgonNDvyNMieFKQxrx5mHCESjxGUrgoxXLTzNAhfEPQRaQR5ihGU1gpxnvCU
p0H4ovDv8DSC0poRFOUSBOVuRDzoVTRPnicQw0Tu3k8IqipBkKiIeEgoOEwg
hgqDHyAEuakEQW5nBAVrWJ7WQ4RsT4PwJZEoQ4XsIUI2I0i2QgwWWngahC8L
LYakEaQFI0gLhRgktPA0CF8RWgxOI0gLRpAWCvF5oYXHMHxVaDEojSAtGEFa
9ENZ15f45wpFPeDhYaHoyfa7O0vhc4VZLJDMOgyB9mTNOcIuT6HwiLCrbwkv
6bvPCVNYBpmSkNEF3ymjPCPD14RRJx0pgWQhC+xoYQMP8Jwt7PCcDo96FV0O
nZNG0LQcEY+JqrMF4iwvo5PDw4SgW54K0Sqc4KEPjwvXnZVGUOAYQW5SiIFe
RusJD094wqtoPdGaRlA7RtDDo4YwwplCR49heNKr6LQ3UMg+U3gqIr4uQnmm
QJwhQvkYIWjfoARBoiLiG15Fl41nCMTpIpSPE4JCpBCniXYegPBNQVfv7kQE
LdEjYrdX0TbkaQJxqhiETxKCnvhUiAEiazwU4SmbG7AtX9KRnF3bse5pyVMF
or8YvR6AsEeoPyBP5n5eS4+Sudvj+8rs/f5Cdj+hfkR8y6tokdlPIE7xMroL
tJsQ5FWF8LOmXQPAEDPTvRdfE2bnnCIQfQtn58/Pu/fiK9F8TX1yGkG+iIjn
xJjvKxAniTnkaUIgWPnLQQpxopfB5TDYfOF+DHsLN8FGez71JIE4QbRzP4Zv
e1X2bpPRTxSI44W27sfwnSIi8IchTshz8riiY/6ai5sevis6Hi9kH8uyDeGm
h+eLkZ47R71degxrYROLmx5e8CqEEQhzjno/sU/hxNwQNz28WIQoz7VjBOJo
L8vmckO4E8K+go4qu2nVRyB6F+MYWtgIcieEl+yPveyGWQ9pi8/qJUh/g7+K
3rAZMwJc564I+4sBjNFnud9LUHxpZK/zQR+0hWP31Til/lsyoBTapRf0vrqz
VxchGGcRqGdheYl8RQvAmmeEYLztjrT/s0Crhzhcp2bUQye0x1/z5/7OxJyQ
lVnz9n9wIl5MRUgwzrN3t/EXWIQU9WgHq8yalzsT02GJ21TkGWYUezHcrhZe
6TJKrZYPHEmKhb+BtXTnX3xgB134HphXc3kD8k9xzn1NmNZflMXT1Q8abB5P
kNs54/2BNf46FTvqmX9yTJWaZCobo0UwmoqeXFH/fFc+nBSlmgtqFrFt/+ml
dVNWFRrFrem7dbrob9RJlSWyraW+mEdHatA0IkB/nU/H7i1d7d6QJ0oHfdLq
tE87kHZ0OTiJS21laKVczU5ip3IwlDyxeHixywfEJ+Z5dftxe5fdXswhyW+Z
Us/EZp+rDSifcHjCE930eel38xwJtyfdVO5762FzYHz4MyGydELy/tX6Pkdq
NtKPPae/kUvsm9bM1iXRKBNXpmGZ/V6nvwisaFBy0kjwD9VuFXfyFWViqNf0
qFJtoLNrh3Nfpc6cmioXU1FG1wpoaQhTF7AyYKUzF9XEgal31Xq9fI7ET+8G
M059OdjRouwcUdZHlN3/mVKzWAIW66uj809FWS+Oj35ghcqOFWV9SylH5bXx
Rlgji+fQ4z/yAdE/\
\>"]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "DecrHel", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DecrHel", "[", 
   RowBox[{"vx_", ",", "vx_", ",", "vz_", ",", 
    RowBox[{"range_:", 
     RowBox[{"{", 
      RowBox[{"40", ",", "50"}], "}"}]}]}], "]"}], ":=", 
  RowBox[{"DecrHel", "[", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Total", "[", 
      RowBox[{"MapThread", "[", 
       RowBox[{"Times", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], ",", 
          RowBox[{"rotd", "[", 
           RowBox[{"vx", ",", "vy", ",", "vz", ",", "ghost"}], "]"}]}], 
         "}"}]}], "]"}], "]"}], "\[Transpose]"], ",", "range"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DecrHel", "[", 
   RowBox[{"hel_", ",", 
    RowBox[{"range_:", 
     RowBox[{"{", 
      RowBox[{"40", ",", "50"}], "}"}]}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"cr", "=", 
       RowBox[{
        RowBox[{"Outer", "[", 
         RowBox[{"List", ",", 
          RowBox[{"Sequence", "@@", "coor"}]}], "]"}], "\[LeftDoubleBracket]",
         
        RowBox[{"All", ",", "1", ",", "All", ",", "1"}], 
        "\[RightDoubleBracket]"}]}], ",", "list"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "[", 
         RowBox[{"Dimensions", "[", "hel", "]"}], "]"}], ">", "2"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Dimensions", "[", "cr", "]"}], "\[NotEqual]", 
           RowBox[{"Rest", "[", 
            RowBox[{"Dimensions", "[", "hel", "]"}], "]"}]}], ",", 
          RowBox[{
          "Return", "[", 
           "\"\<\:0421\:0435\:0442\:043a\:0430 \:043d\:0435 \
\:0441\:043e\:0432\:043f\:0430\:0434\:0430\:0435\:0442\>\"", "]"}]}], "]"}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"list", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Total", "[", 
             RowBox[{"Flatten", "[", "cr", "]"}], "]"}], "\[Equal]", "0."}], 
           ",", 
           RowBox[{"WithoutFict", "[", 
            RowBox[{"Mean", "/@", 
             RowBox[{"(", 
              RowBox[{"Flatten", "/@", "hel"}], ")"}]}], "]"}], ",", 
           RowBox[{"WithoutFict", "[", 
            RowBox[{
             RowBox[{
              FractionBox[
               RowBox[{"Total", "[", 
                RowBox[{"Flatten", "[", 
                 RowBox[{"cr", "#"}], "]"}], "]"}], 
               RowBox[{"Total", "[", 
                RowBox[{"Flatten", "[", "cr", "]"}], "]"}]], "&"}], "/@", 
             "hel"}], "]"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"list", "=", "hel"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "[", 
         RowBox[{"Dimensions", "[", "list", "]"}], "]"}], "<", "2"}], ",", 
       RowBox[{"list", "=", 
        SuperscriptBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"WithoutFict", "[", 
            RowBox[{
            "coor", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
            "]"}], ",", "list"}], "}"}], "\[Transpose]"]}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"Fit", "[", 
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"First", "[", "#", "]"}], ",", 
               RowBox[{"Log", "[", 
                RowBox[{"Last", "[", "#", "]"}], "]"}]}], "}"}], "&"}], "/@", 
            "list"}], ",", "range"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "z"}], "}"}], ",", "z"}], "]"}], ",", "z"}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.4643450864375*^9, 3.464345293921875*^9}, {
   3.464345328390625*^9, 3.46434532921875*^9}, 3.464345361109375*^9, {
   3.46434626484375*^9, 3.464346297359375*^9}, {3.46440891253125*^9, 
   3.4644089305*^9}, {3.46441463765625*^9, 3.464414639203125*^9}, {
   3.4644182791875*^9, 3.464418336828125*^9}, {3.464430361359375*^9, 
   3.46443038121875*^9}, {3.46443041796875*^9, 3.4644304349375*^9}, {
   3.464430465796875*^9, 3.46443050140625*^9}, {3.46443058675*^9, 
   3.464430618296875*^9}}],

Cell[CellGroupData[{

Cell["\:041f\:0440\:043e\:0441\:043c\:043e\:0442\:0440 \:0441\:043d\:0438\
\:043c\:043a\:0430", "Subsection",
 CellChangeTimes->{{3.463911617546875*^9, 3.463911622203125*^9}, {
  3.4639116553125*^9, 3.463911661390625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"phi", "=", 
   RowBox[{"Outer", "[", 
    RowBox[{"ArcTan", ",", 
     RowBox[{"coor", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"coor", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vphi", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"vx", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "ny", ",", "All"}], "]"}], "]"}], 
       RowBox[{"Sin", "[", "phi", "]"}]}], "-", 
      RowBox[{
       RowBox[{"vz", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "ny", ",", "All"}], "]"}], "]"}], 
       RowBox[{"Cos", "[", "phi", "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ny", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "vx", "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vrho", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"vx", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "ny", ",", "All"}], "]"}], "]"}], 
       RowBox[{"Cos", "[", "phi", "]"}]}], "+", 
      RowBox[{
       RowBox[{"vz", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "ny", ",", "All"}], "]"}], "]"}], 
       RowBox[{"Sin", "[", "phi", "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ny", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "vx", "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.427393291138*^9, 3.4273932918789997`*^9}, {
  3.427393425285*^9, 3.427393481516*^9}, {3.427393586804*^9, 
  3.427393621392*^9}, {3.427435180836*^9, 3.427435271693*^9}, {
  3.4274369167530003`*^9, 3.427436916927*^9}, {3.4283976370566*^9, 
  3.4283976376476*^9}, {3.4613194608125*^9, 3.461319462515625*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"vphi", "[", 
        RowBox[{"[", "ny", "]"}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}], ",", 
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"vrho", "[", 
        RowBox[{"[", "ny", "]"}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ny", ",", "1", ",", 
     RowBox[{"Length", "[", "vy", "]"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.427602760734375*^9, 3.42760277765625*^9}, {
  3.428220360046875*^9, 3.42822036446875*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ListPlot3D", "[", 
      RowBox[{
       RowBox[{"vphi", "[", 
        RowBox[{"[", "ny", "]"}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}], ",", 
     RowBox[{"ListPlot3D", "[", 
      RowBox[{
       RowBox[{"vrho", "[", 
        RowBox[{"[", "ny", "]"}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ny", ",", "1", ",", 
     RowBox[{"Length", "[", "vy", "]"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.42761741653125*^9, 3.427617455109375*^9}}],

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"Mean", "/@", 
   RowBox[{"Flatten", "/@", "vphi"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.427395137085*^9, 3.427395183943*^9}, {3.427395246123*^9,
    3.427395246368*^9}, {3.4274369344969997`*^9, 3.4274369381610003`*^9}, 
   3.427600228109375*^9, {3.427604543359375*^9, 3.427604544765625*^9}, {
   3.42761727959375*^9, 3.427617282390625*^9}, {3.4276232911875*^9, 
   3.42762330490625*^9}, {3.428220301453125*^9, 3.428220305296875*^9}, {
   3.4622672288125*^9, 3.462267255515625*^9}, {3.46226750415625*^9, 
   3.462267504921875*^9}, {3.462271763171875*^9, 3.462271764390625*^9}, {
   3.46371496990625*^9, 3.463714977234375*^9}, {3.463715131828125*^9, 
   3.463715162515625*^9}, {3.463912915328125*^9, 3.463912927609375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Fit", "[", 
  RowBox[{
   RowBox[{"Take", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"coor", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"Log", "/@", 
         RowBox[{"Mean", "/@", 
          RowBox[{"Flatten", "/@", "vphi"}]}]}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "40"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "z"}], "}"}], ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.427437273605*^9, 3.427437324414*^9}, {
   3.42760057534375*^9, 3.427600590078125*^9}, {3.427600877546875*^9, 
   3.427600879234375*^9}, {3.427617782484375*^9, 3.4276177841875*^9}, {
   3.427623319875*^9, 3.4276233211875*^9}, {3.4479962598598003`*^9, 
   3.447996260749*^9}, {3.45414340178125*^9, 3.454143402359375*^9}, {
   3.4543998913125*^9, 3.454399891703125*^9}, {3.4601746449189997`*^9, 
   3.460174662591*^9}, {3.460347198078*^9, 3.460347269133*^9}, {
   3.460350507275*^9, 3.46035051001*^9}, {3.460351479224*^9, 
   3.460351480597*^9}, {3.460354040533*^9, 3.460354042026*^9}, {
   3.460354482267*^9, 3.460354482709*^9}, {3.460354795328*^9, 
   3.460354797132*^9}, {3.460355208929*^9, 3.460355215486*^9}, 
   3.4603564331280003`*^9, 3.4603601263970003`*^9, {3.460461304796875*^9, 
   3.46046130490625*^9}, {3.460702008390625*^9, 3.46070201221875*^9}, {
   3.46070423390625*^9, 3.460704234890625*^9}, {3.460704490546875*^9, 
   3.460704495640625*^9}, {3.46071518953125*^9, 3.46071519321875*^9}, {
   3.460785599640625*^9, 3.460785603375*^9}, {3.460785805578125*^9, 
   3.4607858060625*^9}, 3.462267491296875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2.4324603381346463`"}], "-", 
  RowBox[{"0.3140617686270492`", " ", "z"}]}]], "Output",
 CellChangeTimes->{3.46391293815625*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"PrintRange", "[", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"WithoutFict", "/@", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"coor", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}],
        ",", 
       RowBox[{"Log", "/@", 
        RowBox[{"Max", "/@", 
         RowBox[{"Flatten", "/@", "vphi"}]}]}]}], "}"}]}], ")"}], 
   "\[Transpose]"], "]"}], "\[IndentingNewLine]", 
 RowBox[{"PrintRange", "[", 
  RowBox[{"Log", "/@", 
   RowBox[{"Max", "/@", 
    RowBox[{"Flatten", "/@", "vrho"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.427394612619*^9, 3.427394677493*^9}, {3.427394785447*^9,
    3.427394836615*^9}, {3.427394867925*^9, 3.427394887585*^9}, {
   3.427395101862*^9, 3.427395115153*^9}, {3.4274351908640003`*^9, 
   3.427435204149*^9}, {3.4274369771619997`*^9, 3.427437036578*^9}, {
   3.427600392140625*^9, 3.427600395078125*^9}, {3.42760088640625*^9, 
   3.4276008865625*^9}, {3.427601002640625*^9, 3.427601004921875*^9}, 
   3.4276020473125*^9, {3.4289915580625*^9, 3.428991602375*^9}, {
   3.433582409515625*^9, 3.4335824161875*^9}, {3.433843103359375*^9, 
   3.43384311615625*^9}, {3.433843219296875*^9, 3.433843219671875*^9}, {
   3.4470658540018*^9, 3.4470658547427998`*^9}, {3.45414338875*^9, 
   3.4541433921875*^9}, {3.454144344390625*^9, 3.454144344765625*^9}, {
   3.45415077653125*^9, 3.45415077696875*^9}, {3.460174669619*^9, 
   3.46017469435*^9}, 3.4603472488529997`*^9, {3.46035074229*^9, 
   3.4603507423310003`*^9}, {3.461301552403*^9, 3.4613015612469997`*^9}, {
   3.461307638281*^9, 3.4613076392860003`*^9}, {3.461308094038*^9, 
   3.461308095549*^9}, {3.461308766724*^9, 3.461308767109*^9}, {
   3.461309658483*^9, 3.461309667198*^9}}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"dif", "[", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"WithoutFict", "/@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
        "coor", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", 
        RowBox[{"Log", "/@", 
         RowBox[{"Max", "/@", 
          RowBox[{"Flatten", "/@", "vphi"}]}]}]}], "}"}]}], ")"}], 
    "\[Transpose]"], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.461307880302*^9, 3.461307885525*^9}, {
  3.4613079629119997`*^9, 3.461308107284*^9}, {3.461308173071*^9, 
  3.461308179001*^9}, {3.461308215745*^9, 3.46130821616*^9}, {
  3.4613087595559998`*^9, 3.461308759939*^9}, {3.461309436638*^9, 
  3.46130943745*^9}, {3.461311181774*^9, 3.461311182148*^9}, {
  3.463912952453125*^9, 3.463912954765625*^9}}],

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ny", "=", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"vphi", "[", 
        RowBox[{"[", "ny", "]"}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"vrho", "[", 
        RowBox[{"[", "ny", "]"}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.427393093409*^9, 3.427393225257*^9}, {3.427393665579*^9,
   3.427393691453*^9}, {3.4273940282539997`*^9, 3.427394058961*^9}, {
  3.427394099844*^9, 3.427394128367*^9}, {3.427394277102*^9, 
  3.427394325789*^9}, {3.4273945297939997`*^9, 3.427394593031*^9}, {
  3.427394686451*^9, 3.4273947571879997`*^9}, {3.427395016715*^9, 
  3.427395018186*^9}, {3.427437119965*^9, 3.4274372082939997`*^9}, {
  3.427602078515625*^9, 3.427602094328125*^9}, {3.427602358359375*^9, 
  3.427602362015625*^9}, {3.427602741984375*^9, 3.42760275671875*^9}, {
  3.4470652026938*^9, 3.4470652395008*^9}, {3.4470658650828*^9, 
  3.4470658658278*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"helicity", "=", 
   RowBox[{"Total", "[", 
    RowBox[{"MapThread", "[", 
     RowBox[{"Times", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], ",", 
        RowBox[{"rotc", "[", 
         RowBox[{"vx", ",", "vy", ",", "vz", ",", "ghost"}], "]"}]}], "}"}]}],
      "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.448356159578125*^9, 3.448356161765625*^9}, {
   3.44835632528125*^9, 3.44835632553125*^9}, {3.463084706328125*^9, 
   3.463084706640625*^9}, 3.463714320734375*^9, 3.4671025193508*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"helicity", "=", 
   RowBox[{
    RowBox[{"rotd", "[", 
     RowBox[{"vx", ",", "vy", ",", "vz", ",", "ghost"}], "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4637283395*^9, 3.463728348359375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"cr", "=", 
   RowBox[{
    RowBox[{"Outer", "[", 
     RowBox[{"List", ",", 
      RowBox[{"Sequence", "@@", "coor"}]}], "]"}], "\[LeftDoubleBracket]", 
    RowBox[{"All", ",", "1", ",", "All", ",", "1"}], 
    "\[RightDoubleBracket]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.4634661673125*^9, {3.463466236078125*^9, 3.463466237203125*^9}}],

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"Total", "[", 
      RowBox[{"Flatten", "[", 
       RowBox[{"cr", "#"}], "]"}], "]"}], 
     RowBox[{"Total", "[", 
      RowBox[{"Flatten", "[", "cr", "]"}], "]"}]], "&"}], "/@", 
   SuperscriptBox[
    RowBox[{"res", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "\[Transpose]"]}], "]"}]], "Input",
 CellChangeTimes->{{3.463466567015625*^9, 3.46346663640625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"helicity", "[", 
   RowBox[{"[", 
    RowBox[{"35", ",", "All", ",", "35"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.463728417421875*^9, 3.46372845315625*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxd019IU3EUB/BLFK2g6EqR/wi9ldiQ/rippdaO886/c25BKGYvQpMkCStd
QcmlerjKQKqn9eBDD7GuCkmCiUVLIqvdktDsj9OyqVnWtJewXmoHzwnWYLt8
9v39/92TWnfq8PFVgiAURb/4XPksWSRJqq2pHLXQH9CmqkMt7eNkA3g8nlDV
sVfkTRBtn/zseYi8GTRNE7YmhsnxmOfnrVkgJ8PU5GRqT/E3cgqIojicms2W
4KWu13n+cPsdIMtySfMQOw0yTabhxlZ2Oo4/1pXFNoLZZJr1z38lZ+B8rqCP
vRu6NG3ZXsreC263u3t4+Qt5HyxGItsMfnYmzt/5u4ptwv6OFAPbDPVut//H
vXlyFq5nfOQEOxsikcjGn4nsHJyv9WnwM3k/jj/WcIF9AM55PP3VGexcXM/j
uxNz5Dw8/19b2tn5cH9wMHg7h30Q+z/aOTNLPoSeeNjBtsANn6/JlssGPC9x
OTyzYgWw/cU+L1kowPU1PDFzXoDrWR8X4vu1gq7r8d8vkRUr7t+fu4vzQlzf
mdqRT5QXwnZJmjM2kwUZ57uckMS5jOO1zAemKbdh/wFjPVmxQbemdTZt4LwI
7zfJ2/eR8iJ4oesne4+ShWKI/txMX815MZ5fwmL1B8pLME/s75mivATaVfV0
WCALpWCT5bnFmknKS/H+vNY7/L6XQZwo9jwQyUoZvg9nr9dPUF6O8+UcGXtP
eTmoqipfTSMLdtyfb+2td5Tb8Tws5xfeUl6B5710xUtWKvA+Am29byh34P5H
bdfIigP7T4cbuV4r8b5npSBZqcR622Nc95pyJ87fYa+lHJwQU/+KM7b+A87/
6t8VW//giq1/xfWv/v8CGspG8w==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.463728424*^9, 3.46372845346875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Mean", "/@", 
   RowBox[{"Flatten", "/@", 
    SuperscriptBox["helicity", "\[Transpose]"]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4504237159375*^9, 3.450423731578125*^9}, {
  3.454150747015625*^9, 3.454150752921875*^9}, {3.4613112421549997`*^9, 
  3.4613112494700003`*^9}, {3.461311459808*^9, 3.4613114611280003`*^9}, {
  3.461311539605*^9, 3.461311549317*^9}, {3.462268566015625*^9, 
  3.462268566375*^9}, {3.46226865878125*^9, 3.462268659203125*^9}, {
  3.46308453396875*^9, 3.463084545828125*^9}, {3.463714339609375*^9, 
  3.463714339875*^9}, {3.46371468121875*^9, 3.463714689984375*^9}, {
  3.463728370078125*^9, 3.4637283701875*^9}, {3.46372846378125*^9, 
  3.46372846409375*^9}, {3.463739956*^9, 3.463739957609375*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxd03sslXEcx/GHplgxrZIpKczM/VIicT7nuB63c7DYmiGtaVqRa1E8SMel
3EKJ3LucEKWQOWjNIpEm05Rp6XSZNIwauVTz1aZn++3Z6/f+9/fZExTqdUyW
YRjHP+fvf+Wb5HTc6VfS54W10wW8TGoqHytFkOXxKi7UYjEmlqwMjXyRCo9b
TN4KKa97SsvpNlkVwvmSrhGFe+SdUGg+0tgmFZN3YyK2buzXrltkTbQfUovw
YCvJ2hiel/Qt5ZaTdSD4Ml03pVxG1oVhTMuCRs0Nsh42+BYMqBQXkQ3QI29s
6TZUSDaCvnKXpNPtGtkE0rDRJLnJArIpvik4p+Q155PNwIltDK8pzSObg+nL
FWaWXSHvxcR29W6DplzyPqhyOzLL3+eQLSAKSL3vqbbq/ehtaxr1DcomW0K2
zyt95GQW2Qpp3Wn+2YaZ5ANY9NM0tJO5TLZG4GyNjcrnDPJBuIYfHTIaSSfb
YEJRw0D3QxrZFr16TN31mVQyBxVTTdzoLasGMt7G61bZiFbMAjMvbQ8Lwy9S
5+K49oh1SX0KdS5Kg2drpT8vUOfBWKFaN8qJzPIwGaBi3lmSTN0OTyWvH9ov
JlG3g09vhXxKEJmxh5agflCxL5G6PQQ/ROJkDplxQOLQpdTERpa6Azi11Rkt
ZmTGEQ1Xu+42BCdQd4Rc/4mPVhHx1J1QWyJtixWdp+6E3sE556XKc9SdUWC3
sdi7K466MyQBWZvkZ1bfNx9jQTJNz3TILB/5Fo827wg8S90F61pD+QOlZ6i7
YL3NwnKANIa6K8Q+BmM9JmTWFSFGRc8dEqOpuyE6tGOZPxRF3Q0zS94vfE3J
jDvU5wMjtuVEUnfHV/9WubHp1T16wPVd1Ru+H5n1gDi1UCB5Ek5dgIS5yO9i
SzIrwKnxBwnZ2aepCxEyfPPTuDkZQqzZPytcu/8O4X/791y7f3iu3T/r+W//
vwHKo2PW
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.4637151219375*^9, {3.46372835146875*^9, 3.463728370546875*^9}, 
   3.463728464375*^9, 3.463739957859375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Fit", "[", 
  RowBox[{
   RowBox[{"Take", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"coor", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"Log", "/@", 
         RowBox[{"Mean", "/@", 
          RowBox[{"Flatten", "/@", 
           SuperscriptBox["helicity", "\[Transpose]"]}]}]}]}], "}"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"20", ",", "50"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "z"}], "}"}], ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.427437273605*^9, 3.427437324414*^9}, {
   3.42760057534375*^9, 3.427600590078125*^9}, {3.427600877546875*^9, 
   3.427600879234375*^9}, {3.427617782484375*^9, 3.4276177841875*^9}, {
   3.427623319875*^9, 3.4276233211875*^9}, {3.4479962598598003`*^9, 
   3.447996260749*^9}, {3.45414340178125*^9, 3.454143402359375*^9}, {
   3.4543998913125*^9, 3.454399891703125*^9}, {3.4601746449189997`*^9, 
   3.460174662591*^9}, {3.460347198078*^9, 3.460347269133*^9}, {
   3.460350507275*^9, 3.46035051001*^9}, {3.460351479224*^9, 
   3.460351480597*^9}, {3.460354040533*^9, 3.460354042026*^9}, {
   3.460354482267*^9, 3.460354482709*^9}, {3.460354795328*^9, 
   3.460354797132*^9}, {3.460355208929*^9, 3.460355215486*^9}, 
   3.4603564331280003`*^9, 3.4603601263970003`*^9, {3.460461304796875*^9, 
   3.46046130490625*^9}, {3.460702008390625*^9, 3.46070201221875*^9}, {
   3.46070423390625*^9, 3.460704234890625*^9}, {3.460704490546875*^9, 
   3.460704495640625*^9}, {3.46071518953125*^9, 3.46071519321875*^9}, {
   3.460785599640625*^9, 3.460785603375*^9}, {3.460785805578125*^9, 
   3.4607858060625*^9}, {3.46226688246875*^9, 3.46226690784375*^9}, {
   3.4632318926387997`*^9, 3.4632319335478*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1.965541167943624`"}], "-", 
  RowBox[{"1.7478783272032283`", " ", "z"}]}]], "Output",
 CellChangeTimes->{{3.462266897859375*^9, 3.462266908515625*^9}, 
   3.462270334703125*^9, 3.462271693859375*^9, 3.463084556265625*^9, {
   3.4632318954588003`*^9, 3.4632319075948*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot3D", "[", 
  RowBox[{
   RowBox[{"helicity", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", 
      RowBox[{"ghost", "+", "10"}]}], "]"}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.448362486609375*^9, 3.44836249515625*^9}, {
  3.44836264109375*^9, 3.448362671671875*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ListContourPlot", "[", 
    RowBox[{
     RowBox[{"GetInner", "@", 
      RowBox[{"helicity", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "ny"}], "]"}], "]"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"ny", ",", "1", ",", 
     RowBox[{
      RowBox[{"Dimensions", "[", "vx", "]"}], "\[LeftDoubleBracket]", "2", 
      "\[RightDoubleBracket]"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.450424180328125*^9, 3.450424208578125*^9}, {
  3.450424243375*^9, 3.4504242469375*^9}, {3.459934853226*^9, 
  3.4599348547236*^9}}],

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"num", "=", "1"}], "}"}], ",", 
   RowBox[{
    RowBox[{"helicity", "=", 
     RowBox[{"Total", "[", 
      RowBox[{"MapThread", "[", 
       RowBox[{"Times", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"res", "[", 
           RowBox[{"[", "num", "]"}], "]"}], ",", 
          RowBox[{"rotd", "[", 
           RowBox[{
            RowBox[{"Sequence", "@@", 
             RowBox[{"res", "[", 
              RowBox[{"[", "num", "]"}], "]"}]}], ",", "ghost"}], "]"}]}], 
         "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"ListLogPlot", "[", 
      RowBox[{"Mean", "/@", 
       RowBox[{"Flatten", "/@", 
        SuperscriptBox["helicity", "\[Transpose]"]}]}], "]"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"dif", "@", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"coor", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"Log", "/@", 
           RowBox[{"Mean", "/@", 
            RowBox[{"Flatten", "/@", 
             SuperscriptBox["helicity", "\[Transpose]"]}]}]}]}], "}"}], 
        "]"}]}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.4632317250648003`*^9, 3.4632318063118*^9}, {
  3.4632319193677998`*^9, 3.4632319567078*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"dif", "@", 
   RowBox[{"dif", "@", 
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"coor", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"Log", "/@", 
        RowBox[{"Mean", "/@", 
         RowBox[{"Flatten", "/@", 
          SuperscriptBox["helicity", "\[Transpose]"]}]}]}]}], "}"}], 
     "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4632321763578*^9, 3.4632321768768*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwtk30wFGgcxzfEZVn7xiqlcau7LVOT9o6Qfr9KVy69kGpOeyed3GrkVByp
oxE5L2HpVuxZjLc2WqVMHV3PUqKSFTbXoUt5t23ZMOFwu02fmd8888z85vv8
8Xy+dod/9jliQKFQPHSjPzuLwtxNO+uJpKfSUa4ahOUJo963bWWEY5JYevIC
W/HpDrfNArKeDHkoPu1Dd6Hx3ju1zgphkB4lnPWyr/n9taviDFu+rXdaBQ9f
z4aPtBso7k/wBOmbu2H22c2xRJMR+Bi3tReSwsfplMZ+WClIr58Q9kG12j42
O7UHmvWkDgLPOqBqw0YV6F8rujYCzA/0fhAoQaR0kEZ3vAEXzfBWlWcjXKqz
FvHOvAP3sjdd/+2tg8vJsnEWTQtDqldSt8o/4Ve7vjvz+e/h+8DgIsFUFajE
rk2jjhPQcnzXlvdp5XBldURG571JKA/1Ysq6imCmP8vy3r4P8C9NEX9kQAI7
pVW58sEpuOQXODLXkAn5+58uzz01A8xin4QDlYkwRntXnECdBY3o62SDzFOw
pZG26njeHOyk2w1JpwPgEREfkHMoGKq+Hq8c8ibjNl8sKX5JwcLmmEVpqcfI
0qjq7hzZAozixcVezY0kWzs88tNPGCC1oONqRUQMCV3bEZDgZoirjOI1oUFx
JDv1R/vTRka4rO5Qs1ATTxRD2oGwJ0ZYS127Me9sIhn2iJMFiRfiZPGtVt+C
JMIsZIQI/I2RkiNckT6VQtxmC9b48EzQ2Nd/nfOHCyTwu7Vj28ZM8PP2kNYI
hwyy44FjpnvNZ/iUP1oq9heRsS0lDP65Reh/xNK2bHsmeX6ttIrnZYqHHv7k
dCIlixiYO0XYWlLR5nRElM/8ReIQ3ODMfkHF2kjxNuSKifjmKxvTMjO8W3Mr
vEWWTTa/vWBHCTPHw/KT3E1rckiFa/nCyfU01KJjmDNLQj7+zwILXBiz61js
vITMaR8m9z6yQCWv5KDwFym5WFZROupJx6Ld0hdN66Xk8r7xxCA5HTuLv2kY
eJtP7hhuCO5lMvC41Ypavxs5pPX6uW8FkQx0eUxfGjmZQQb8Hzt0djHwin2S
+0qjSzBtzjL3QSaeO8SpqbpbC6H3s3qai5n4IqXVr7z/GbyK1gm9iIWNNyoo
1O0amNTpXH+MhVzOe9EPsYZoqi9EGwvTjIe8zrRZoa1ecCc2dvPZ8oO1X+JX
fB0SNtLPr6u85cnH7b26wHk2MpepXWv4TqjXnxdoiQfcOPufuzriR9+bLPFo
0ZKQXfFcPK/vy2orLOky7MqbYmBujg6RFTbl9txUwhzo2hbNnrTC8sg9kk2P
BqFe3zc/Dv7FaNnnXtAGf+v7Sjj4QJUKvtwaUOviErjWOBtn2Lw87w+g6PnN
GncPaqTewn9IdQlNG622xnVR/uvbZ1iKozuW9U3sWYwaM7WFy7CHImYqsCGs
ejFqb6QY1710VvwPTgYN3A==
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-0.1471875, 6.427187999999999}, {-1.191354517932183, 
   1.9063240444922431`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.4632321771668*^9}]
}, Open  ]]
}, Open  ]],

Cell["\:0423\:043d\:0438\:0432\:0435\:0440\:0441\:0430\:043b\:044c\:043d\:044b\
\:0439 \:043f\:0440\:043e\:0441\:043c\:043e\:0442\:0440\:0449\:0438\:043a", \
"Subsection",
 CellChangeTimes->{{3.463911617546875*^9, 3.463911622203125*^9}, 
   3.463912075484375*^9, {3.463912655484375*^9, 3.463912662328125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"list3d", "=", 
   SuperscriptBox["vx", "\[Transpose]"]}], ";"}]], "Input",
 CellChangeTimes->{{3.463913129234375*^9, 3.463913134265625*^9}, {
  3.4639147055*^9, 3.463914705921875*^9}, {3.4639150830625*^9, 
  3.46391508321875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"list3d", "=", 
   SuperscriptBox["helicity", "\[Transpose]"]}], ";"}]], "Input",
 CellChangeTimes->{{3.463912872078125*^9, 3.463912873984375*^9}, {
  3.463912986203125*^9, 3.463912987984375*^9}, {3.4671025849118*^9, 
  3.4671025878638*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ACPackages`ACListNumerics`Private`coor", "=", "coor"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"list3d", "=", 
   SuperscriptBox[
    RowBox[{"Total", "[", 
     RowBox[{"MapThread", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], ",", 
         RowBox[{"rotc", "[", 
          RowBox[{"vx", ",", "vy", ",", "vz", ",", "ghost"}], "]"}]}], 
        "}"}]}], "]"}], "]"}], "\[Transpose]"]}], ";"}]}], "Input",
 CellChangeTimes->{{3.46391302215625*^9, 3.46391303203125*^9}, {
  3.4639132980625*^9, 3.463913302703125*^9}, {3.464424918*^9, 
  3.464424918546875*^9}, {3.46442500140625*^9, 3.4644250073125*^9}, {
  3.464425072828125*^9, 3.464425081875*^9}, {3.464425357734375*^9, 
  3.46442535975*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"list3d", "=", 
   SuperscriptBox[
    RowBox[{
     RowBox[{"rotd", "[", 
      RowBox[{"vx", ",", "vy", ",", "vz", ",", "ghost"}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], "\[Transpose]"]}], ";"}]], "Input",
 CellChangeTimes->{{3.4637283395*^9, 3.463728348359375*^9}, {
  3.46391333690625*^9, 3.463913338625*^9}, {3.463915774640625*^9, 
  3.46391577565625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"list", "=", 
   RowBox[{"WithoutFict", "[", 
    RowBox[{"Max", "/@", 
     RowBox[{"(", 
      RowBox[{"Flatten", "/@", "list3d"}], ")"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.463912673421875*^9, 3.463912699453125*^9}, {
  3.46391275428125*^9, 3.46391276221875*^9}, {3.463912833609375*^9, 
  3.46391284609375*^9}, {3.463913137625*^9, 3.463913138359375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"cr", "=", 
   RowBox[{
    RowBox[{"Outer", "[", 
     RowBox[{"List", ",", 
      RowBox[{"Sequence", "@@", "coor"}]}], "]"}], "\[LeftDoubleBracket]", 
    RowBox[{"All", ",", "1", ",", "All", ",", "1"}], 
    "\[RightDoubleBracket]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.46391276578125*^9, 3.463912779328125*^9}, {
  3.4639133496875*^9, 3.46391337078125*^9}, {3.463913672703125*^9, 
  3.463913674*^9}, {3.46391466175*^9, 3.46391466215625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Total", "[", 
      RowBox[{"Flatten", "[", "cr", "]"}], "]"}], "\[Equal]", "0."}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Print", "[", "\"\<descartes averaging\>\"", "]"}], ";", 
     RowBox[{"list", "=", 
      RowBox[{"WithoutFict", "[", 
       RowBox[{"Mean", "/@", 
        RowBox[{"(", 
         RowBox[{"Flatten", "/@", "list3d"}], ")"}]}], "]"}]}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Print", "[", "\"\<cylindrical averaging\>\"", "]"}], ";", 
     RowBox[{"list", "=", 
      RowBox[{"WithoutFict", "[", 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"Total", "[", 
           RowBox[{"Flatten", "[", 
            RowBox[{"cr", "#"}], "]"}], "]"}], 
          RowBox[{"Total", "[", 
           RowBox[{"Flatten", "[", "cr", "]"}], "]"}]], "&"}], "/@", 
        "list3d"}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.46391368934375*^9, 3.463913773890625*^9}, {
  3.463913833*^9, 3.463913869859375*^9}}],

Cell[BoxData["\<\"cylindrical averaging\"\>"], "Print",
 CellChangeTimes->{{3.463913854359375*^9, 3.46391387140625*^9}, 
   3.46391437721875*^9, 3.463914646125*^9, {3.463915462984375*^9, 
   3.46391548059375*^9}, 3.463915542015625*^9, 3.4639156945625*^9, 
   3.463915853984375*^9, 3.463916096984375*^9, 3.463916243171875*^9, 
   3.463916773703125*^9, 3.46434345675*^9, 3.464344720546875*^9, 
   3.464423661453125*^9, 3.4644237706875*^9, 3.46442384975*^9, 
   3.46442390553125*^9, 3.464424016984375*^9, {3.4644247486875*^9, 
   3.464424768359375*^9}, 3.46442494134375*^9, {3.464425075109375*^9, 
   3.4644250843125*^9}, 3.464425171*^9, 3.4644252848125*^9, 
   3.464425364640625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"listc", "=", 
   SuperscriptBox[
    RowBox[{"{", 
     RowBox[{
      RowBox[{"WithoutFict", "[", 
       RowBox[{"coor", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}],
        "]"}], ",", "list"}], "}"}], "\[Transpose]"]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listc", "=", 
   RowBox[{"MovingAverage", "[", 
    RowBox[{"listc", ",", "3"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.46391516253125*^9, 3.46391520571875*^9}}],

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", "list", "]"}], ",", 
   RowBox[{"Joined", "\[Rule]", "False"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4639127020625*^9, 3.4639127188125*^9}, 
   3.463915141796875*^9, {3.46391588378125*^9, 3.46391588478125*^9}, {
   3.4639160574375*^9, 3.46391605796875*^9}, {3.46391614309375*^9, 
   3.4639161434375*^9}, 3.463916205734375*^9, {3.463916266578125*^9, 
   3.463916286140625*^9}, {3.463916340921875*^9, 3.463916345109375*^9}, {
   3.46391645859375*^9, 3.463916458765625*^9}, {3.46391659421875*^9, 
   3.4639166146875*^9}, 3.463916781078125*^9, {3.463982426671875*^9, 
   3.46398244721875*^9}, {3.464344399109375*^9, 3.464344414890625*^9}, {
   3.464345034765625*^9, 3.464345051109375*^9}, {3.4644240355*^9, 
   3.464424036078125*^9}, {3.464424581140625*^9, 3.464424609078125*^9}, {
   3.464424646625*^9, 3.464424646984375*^9}, {3.46442472134375*^9, 
   3.464424756640625*^9}, {3.464424952125*^9, 3.464424970265625*^9}}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"dif", "@", 
    SuperscriptBox[
     RowBox[{"Abs", "[", "list", "]"}], 
     RowBox[{"-", "1"}]]}], ",", 
   RowBox[{"Joined", "\[Rule]", "False"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4639127020625*^9, 3.4639127188125*^9}, 
   3.463915141796875*^9, {3.46391588378125*^9, 3.46391588478125*^9}, {
   3.4639160574375*^9, 3.46391605796875*^9}, {3.46391614309375*^9, 
   3.4639161434375*^9}, 3.463916205734375*^9, {3.463916266578125*^9, 
   3.463916286140625*^9}, {3.463916340921875*^9, 3.463916345109375*^9}, {
   3.46391645859375*^9, 3.463916458765625*^9}, {3.46391659421875*^9, 
   3.4639166146875*^9}, 3.463916781078125*^9, {3.463982426671875*^9, 
   3.46398244721875*^9}, {3.464344399109375*^9, 3.464344414890625*^9}, {
   3.464345034765625*^9, 3.464345051109375*^9}, {3.4644240355*^9, 
   3.464424036078125*^9}, {3.464424581140625*^9, 3.464424609078125*^9}, {
   3.464424646625*^9, 3.464424646984375*^9}, {3.46442472134375*^9, 
   3.464424756640625*^9}, {3.464424952125*^9, 3.464424959671875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"dif", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"First", "[", "#", "]"}], ",", 
        RowBox[{"Log", "[", 
         RowBox[{"Abs", "@", 
          RowBox[{"Last", "[", "#", "]"}]}], "]"}]}], "}"}], "&"}], "/@", 
     "listc"}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.463912741296875*^9, 3.463912742703125*^9}, {
   3.4639127825625*^9, 3.46391281134375*^9}, {3.46391612528125*^9, 
   3.463916129921875*^9}, {3.463916234921875*^9, 3.463916261984375*^9}, {
   3.463916354734375*^9, 3.46391635546875*^9}, 3.463916412515625*^9, {
   3.463916577875*^9, 3.463916578734375*^9}, {3.463916652234375*^9, 
   3.4639166711875*^9}, {3.46398245221875*^9, 3.46398245359375*^9}, {
   3.464424527234375*^9, 3.464424529078125*^9}, {3.464424815125*^9, 
   3.46442481565625*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwtUwtM03cQLl15FShQCu0gtAjKc5sQF14b/E6ktBkQESViw2tsFNKhmC0D
FEFk1ImiZZIRdIIIbJOhDslkPP01sIAwmAidxRmescp4aYH++2+lcxS55HK5
3N2XL5fv25GeE59BpVAoaDONlSddPNDO7UCTmp4Ir7NW8LYfRKHC6/xu1Ss0
0XA8jK4cQ/lxP9sEqXXYbWv+BLUKi0trZAacKTbGNIqsOe3a7rCBlVv7c+jx
edMQH4MeF7DuCGb1KlTXWuWRStNj7tb9v2iEvyu4o0iHezXeSbKIJVS0b1DU
qSBxtkftklj8EvGG55v3VpD4ws2ycB5fjYZH6cpmSxJPpt3soytXUemJY437
l7V497sDQiJrHXWv0c7M5mrxmUeqkVm9BoXn2EbF5WnxWBnt4Ei5FllUnDTp
N9PinREeE+1cHcq5wA5r5mlxrn5vcmOLHnmltyVG/UrgB61pc7KIDTR4g74i
nSGw8xenMwsUBjTE2d2xkE1s83uD0ot5y/EdBJ4+OhXsc4oCoeeGPvADAlsM
HX3N5ZvA4F2+v/IWgf09DT0sBhXS/p7x7fQjsKikvJiupMLBoMhfnmECl0y5
7KPUvQOZzzWBgj0EvhXabEpk0eAbXyKkjCSwoir0wWKAKYQ8domRigj83+rg
+Vm9KczkdXl/n6zFnvuPxCr7zKD+CFMe3UjguOZ525Fyc7CWOHt/RWhxvnn+
WG+CBZg/NAga7bXb/7cEfbs6RfAnif+gpj66/cISzO8GHxLVafFKykplQwsd
bnzydQl+psNXr2zGCSswtOwRRwpJHKWIvC6LsAZygswpjnmNj/krPpVa2YC6
rb7ZnyBxdflnOwsUNtD+F0P0lG7A8vnV58drGHDv27UK92IdXogsaRKLbSFZ
badI3vEGl41aBN5h24GwzNc0W6bDtUVxbJ9TdvDbhnulRw9F3vpeNdkwYwe3
k8YPxeaSuP+f6Sdcvj1M/UjyZNMm8qfnvLquNNlDxXdnVe+vreNXgTnXWAwm
7LrvZ+5fQpXTVG2Fsi+ZcFnCTHQWLGzrkwmcyl67mHsm8qXNb0g/coBsFzWj
euAHoy0olDoHGCqUWE+WbmCjfE/SWFAwXth0LXoV+STJejVZLNBcyndiJy3j
cPom4ggLPk+RmN2/RIX4TbjFAEdg6EoPCwbm0JY9qhwhbXwmVmLLgLd+cISE
cxeZ/AxLqDAaINUJNBmTG78z2NBopNfnBId/UmnXhRwwwh3wZkN0osvocL0r
MLpFK8PlbPB56amRdnHBXVL/UKBmQ7fSdSgf3CCIs9DSm8ABmM184Z3nBjH9
AZfDOjlQ+/F46odX3eB/36f0Qg==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{643., Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.463912783859375*^9, 3.463912811828125*^9}, 
   3.46391285021875*^9, 3.46391389653125*^9, 3.463914190875*^9, 
   3.4639143819375*^9, {3.463914418734375*^9, 3.463914428125*^9}, {
   3.463914653546875*^9, 3.46391466671875*^9}, 3.463914716921875*^9, 
   3.463915092734375*^9, 3.4639152101875*^9, 3.46391539884375*^9, 
   3.46391555275*^9, {3.463915588140625*^9, 3.46391561240625*^9}, 
   3.46391570515625*^9, 3.463915785546875*^9, 3.46391585915625*^9, 
   3.4639159025625*^9, {3.463916093515625*^9, 3.463916130125*^9}, {
   3.463916235328125*^9, 3.46391628871875*^9}, 3.46391635571875*^9, 
   3.46391641303125*^9, 3.46391657928125*^9, 3.463916620171875*^9, 
   3.463916671515625*^9, 3.46398245375*^9, {3.464343384515625*^9, 
   3.464343391875*^9}, 3.4643434625625*^9, {3.464344705515625*^9, 
   3.464344726359375*^9}, 3.46442368015625*^9, {3.464423780359375*^9, 
   3.464423789984375*^9}, {3.464423862609375*^9, 3.464423865375*^9}, {
   3.464423909*^9, 3.464423959796875*^9}, 3.464424020921875*^9, 
   3.46442452984375*^9, 3.464424564171875*^9, 3.46442481634375*^9, {
   3.464424935046875*^9, 3.464424948875*^9}, 3.46442518565625*^9, {
   3.464425279609375*^9, 3.4644252895625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Fit", "[", 
   RowBox[{
    RowBox[{"Take", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"First", "[", "#", "]"}], ",", 
          RowBox[{"Log", "[", 
           RowBox[{"Last", "[", "#", "]"}], "]"}]}], "}"}], "&"}], "/@", 
       "listc"}], ",", 
      RowBox[{"{", 
       RowBox[{"45", ",", "55"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "z"}], "}"}], ",", "z"}], "]"}], "//", 
  "Chop"}]], "Input",
 CellChangeTimes->{{3.427437273605*^9, 3.427437324414*^9}, {
   3.42760057534375*^9, 3.427600590078125*^9}, {3.427600877546875*^9, 
   3.427600879234375*^9}, {3.427617782484375*^9, 3.4276177841875*^9}, {
   3.427623319875*^9, 3.4276233211875*^9}, {3.4479962598598003`*^9, 
   3.447996260749*^9}, {3.45414340178125*^9, 3.454143402359375*^9}, {
   3.4543998913125*^9, 3.454399891703125*^9}, {3.4601746449189997`*^9, 
   3.460174662591*^9}, {3.460347198078*^9, 3.460347269133*^9}, {
   3.460350507275*^9, 3.46035051001*^9}, {3.460351479224*^9, 
   3.460351480597*^9}, {3.460354040533*^9, 3.460354042026*^9}, {
   3.460354482267*^9, 3.460354482709*^9}, {3.460354795328*^9, 
   3.460354797132*^9}, {3.460355208929*^9, 3.460355215486*^9}, 
   3.4603564331280003`*^9, 3.4603601263970003`*^9, {3.460461304796875*^9, 
   3.46046130490625*^9}, {3.460702008390625*^9, 3.46070201221875*^9}, {
   3.46070423390625*^9, 3.460704234890625*^9}, {3.460704490546875*^9, 
   3.460704495640625*^9}, {3.46071518953125*^9, 3.46071519321875*^9}, {
   3.460785599640625*^9, 3.460785603375*^9}, {3.460785805578125*^9, 
   3.4607858060625*^9}, 3.462267491296875*^9, {3.4639163231875*^9, 
   3.463916323828125*^9}, {3.463916364328125*^9, 3.463916365875*^9}, {
   3.463916658828125*^9, 3.463916691921875*^9}, {3.46434507240625*^9, 
   3.4643450739375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1.614903357253989`"}], "-", 
  RowBox[{"0.28467553946365537`", " ", "z"}]}]], "Output",
 CellChangeTimes->{
  3.463916366078125*^9, {3.463916659796875*^9, 3.46391669215625*^9}, 
   3.46434507465625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"PrintRange", "[", 
    RowBox[{"list3d", "[", 
     RowBox[{"[", 
      RowBox[{"ny", ",", 
       RowBox[{"\[LeftFloor]", 
        FractionBox[
         RowBox[{
          RowBox[{"Dimensions", "[", "list3d", "]"}], "\[LeftDoubleBracket]", 
          "3", "\[RightDoubleBracket]"}], "2"], "\[RightFloor]"}]}], "]"}], 
     "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ny", ",", "ghost"}], "}"}], ",", "1", ",", 
     RowBox[{"Length", "[", "list3d", "]"}], ",", "1"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.427602760734375*^9, 3.42760277765625*^9}, {
   3.428220360046875*^9, 3.42822036446875*^9}, {3.46391307571875*^9, 
   3.463913095765625*^9}, {3.463913915828125*^9, 3.463913940890625*^9}, {
   3.46391398646875*^9, 3.463914029390625*^9}, {3.463914527859375*^9, 
   3.4639145411875*^9}, {3.463914940796875*^9, 3.463914947703125*^9}, 
   3.463916172140625*^9}],

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ny", "=", "6"}], "}"}], ",", 
   RowBox[{"ListPlot3D", "[", 
    RowBox[{
     RowBox[{"list3d", "[", 
      RowBox[{"[", "ny", "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.448362486609375*^9, 3.44836249515625*^9}, {
  3.44836264109375*^9, 3.448362671671875*^9}, {3.463913419734375*^9, 
  3.46391343328125*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ListPlot3D", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"list3d", "[", 
       RowBox[{"[", "ny", "]"}], "]"}], "\[Transpose]"], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ny", ",", "ghost"}], "}"}], ",", "1", ",", 
     RowBox[{"Length", "[", "list3d", "]"}], ",", "1"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.427602760734375*^9, 3.42760277765625*^9}, {
  3.428220360046875*^9, 3.42822036446875*^9}, {3.46391307571875*^9, 
  3.463913095765625*^9}, {3.463913915828125*^9, 3.463913940890625*^9}, {
  3.464423879875*^9, 3.46442388121875*^9}}],

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ny", "=", "6"}], "}"}], ",", 
   RowBox[{"ListContourPlot", "[", 
    RowBox[{
     RowBox[{"list3d", "[", 
      RowBox[{"[", "ny", "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.46391327015625*^9, 3.463913275328125*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ListContourPlot", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"list3d", "[", 
       RowBox[{"[", "ny", "]"}], "]"}], "\[Transpose]"], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ny", ",", "ghost"}], "}"}], ",", "1", ",", 
     RowBox[{"Length", "[", "list3d", "]"}], ",", "1"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.427602760734375*^9, 3.42760277765625*^9}, {
  3.428220360046875*^9, 3.42822036446875*^9}, {3.46391307571875*^9, 
  3.463913095765625*^9}, {3.463914112015625*^9, 3.46391413609375*^9}, {
  3.463915663828125*^9, 3.463915674390625*^9}, {3.4644238209375*^9, 
  3.46442382284375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"list3d", "=", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"WithoutFict", "[", 
      RowBox[{"GetInner", "@", 
       RowBox[{"(", 
        SuperscriptBox["list3d", "\[Transpose]"], ")"}]}], "]"}], ")"}], 
    "\[Transpose]"]}], ";"}]], "Input",
 CellChangeTimes->{{3.4671023667438*^9, 3.4671024337967997`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"mx", "=", 
  RowBox[{"Max", "[", "list3d", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"gh", "=", 
  RowBox[{"ListContourPlot3D", "[", 
   RowBox[{
    SuperscriptBox["list3d", "\[Transpose]"], ",", 
    RowBox[{"Contours", "\[Rule]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], 
      RowBox[{"mx", "/", "2"}]}]}], ",", 
    RowBox[{"ContourStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directive", "[", 
        RowBox[{"Yellow", ",", 
         RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Pink", ",", 
         RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}], "}"}]}], ",", 
    RowBox[{"BoxRatios", "\[Rule]", "Automatic"}], ",", 
    RowBox[{"Mesh", "\[Rule]", "False"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"z", ",", "y", ",", "x"}], "}"}]}], ",", 
    RowBox[{"DataRange", "\[Rule]", "bounds"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.4052706022312546`*^9, 3.405270634587781*^9}, {
   3.405270745847765*^9, 3.4052707556819057`*^9}, {3.405271140785658*^9, 
   3.405271143649776*^9}, {3.409341128416*^9, 3.409341144784*^9}, {
   3.40934123341*^9, 3.409341237156*^9}, {3.409341276205*^9, 
   3.409341280727*^9}, {3.409341316645*^9, 3.409341376817*^9}, 
   3.409341434667*^9, 3.444475271358*^9, {3.444536108439*^9, 
   3.444536134924*^9}, {3.444737523699*^9, 3.444737529248*^9}, {
   3.4453290197319*^9, 3.4453290205639*^9}, {3.4453342055664997`*^9, 
   3.4453342810245*^9}, {3.4453344771285*^9, 3.4453344790215*^9}, {
   3.4453350634465*^9, 3.4453350663835*^9}, {3.4453387925495*^9, 
   3.4453388127395*^9}, {3.4453388524035*^9, 3.4453389215125*^9}, {
   3.4453389526025*^9, 3.4453389530945*^9}, 3.4453391195225*^9, {
   3.450424418203125*^9, 3.450424425796875*^9}, {3.450425397546875*^9, 
   3.45042546746875*^9}, {3.453894198515625*^9, 3.453894216484375*^9}, {
   3.453894256953125*^9, 3.45389425803125*^9}, {3.453894361890625*^9, 
   3.453894362265625*^9}, 3.45389618590625*^9, {3.454063695859375*^9, 
   3.454063723734375*^9}, 3.4625180024271903`*^9, {3.4639135508125*^9, 
   3.463913568390625*^9}, {3.463914305484375*^9, 3.463914307875*^9}, {
   3.463914992328125*^9, 3.4639150200625*^9}, {3.463915358234375*^9, 
   3.46391536503125*^9}, {3.463915432890625*^9, 3.463915451609375*^9}, 
   3.464330926984375*^9, {3.4671024658498*^9, 3.4671024769968*^9}, {
   3.4671033200657997`*^9, 3.4671033279038*^9}}],

Cell[BoxData["0.7666572099596733`"], "Output",
 CellChangeTimes->{
  3.463914144609375*^9, {3.463914289578125*^9, 3.463914315953125*^9}, 
   3.463914634890625*^9, {3.463914981265625*^9, 3.463915020140625*^9}, {
   3.46391535453125*^9, 3.463915371171875*^9}, {3.463915419671875*^9, 
   3.46391545171875*^9}, {3.4639156793125*^9, 3.463915682609375*^9}, {
   3.46391583053125*^9, 3.463915833265625*^9}, {3.464330919015625*^9, 
   3.464330927421875*^9}, {3.4671022212808*^9, 3.4671022356268*^9}, 
   3.4671023693048*^9, {3.4671024189578*^9, 3.4671024776588*^9}, {
   3.4671026037818003`*^9, 3.4671026219048*^9}, 3.4671033231577997`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0418\:0437 \:043f\:0440\:043e\:0447\:0438\:0442\:0430\:043d\:043d\
\:044b\:0445 \:0441\:043d\:0438\:043c\:043a\:043e\:0432", "Subsection",
 CellChangeTimes->{{3.463911617546875*^9, 3.463911622203125*^9}, 
   3.463912075484375*^9}],

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"nxz", "=", "11"}], "}"}], ",", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"vphi", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"res", "\[LeftDoubleBracket]", 
              RowBox[{"i", ",", "1", ",", "All", ",", "ny", ",", "All"}], 
              "\[RightDoubleBracket]"}], 
             RowBox[{"Sin", "[", "phi", "]"}]}], "-", 
            RowBox[{
             RowBox[{"res", "\[LeftDoubleBracket]", 
              RowBox[{"i", ",", "3", ",", "All", ",", "ny", ",", "All"}], 
              "\[RightDoubleBracket]"}], 
             RowBox[{"Cos", "[", "phi", "]"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"ny", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "res", "]"}], "\[LeftDoubleBracket]",
               "4", "\[RightDoubleBracket]"}]}], "}"}]}], "]"}]}], ";", 
        RowBox[{"PrintRange", "[", 
         RowBox[{
          RowBox[{"Log", "/@", 
           RowBox[{"Max", "/@", 
            RowBox[{"Flatten", "/@", "vphi"}]}]}], ",", "All", ",", 
          RowBox[{"PlotLabel", "\[Rule]", 
           RowBox[{
           "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}],
          "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"PrintRange", "[", 
        RowBox[{
         RowBox[{"res", "\[LeftDoubleBracket]", 
          RowBox[{"i", ",", "2", ",", "nxz", ",", "All", ",", "nxz"}], 
          "\[RightDoubleBracket]"}], ",", "Automatic", ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{
          "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}], 
        "]"}], ",", 
       RowBox[{"PrintRange", "[", 
        RowBox[{
         RowBox[{"res", "\[LeftDoubleBracket]", 
          RowBox[{"i", ",", "4", ",", "nxz", ",", "All", ",", "nxz"}], 
          "\[RightDoubleBracket]"}], ",", "All", ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{
          "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "res", "]"}], ",", "1"}], "}"}]}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.4470672468518*^9, 3.4470674300808*^9}, {
  3.44715459478125*^9, 3.44715459759375*^9}, {3.4471546661875*^9, 
  3.4471546713125*^9}, {3.448354458359375*^9, 3.448354528625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"grs2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"vphi", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"res", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", "1", ",", "All", ",", "ny", ",", "All"}], 
             "\[RightDoubleBracket]"}], 
            RowBox[{"Sin", "[", "phi", "]"}]}], "-", 
           RowBox[{
            RowBox[{"res", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", "3", ",", "All", ",", "ny", ",", "All"}], 
             "\[RightDoubleBracket]"}], 
            RowBox[{"Cos", "[", "phi", "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"ny", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "res", "]"}], "\[LeftDoubleBracket]", 
             "4", "\[RightDoubleBracket]"}]}], "}"}]}], "]"}]}], ";", 
       RowBox[{"PrintRange", "[", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"Max", "/@", 
           RowBox[{"Flatten", "/@", "vphi"}]}], "]"}], ",", "All", ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Last", "@", 
           RowBox[{"ReadSnapHeader", "[", 
            RowBox[{"\"\<screw_32_\>\"", "<>", 
             RowBox[{"ToString", "[", 
              RowBox[{
              "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
              "]"}], "<>", "\"\<.snp\>\""}], "]"}]}]}]}], "]"}]}], ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "res", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.46043559921875*^9, 3.46043565475*^9}, {
   3.460435685125*^9, 3.46043570215625*^9}, 3.4604369145*^9, {
   3.460437661125*^9, 3.460437661203125*^9}, 3.46045802096875*^9, {
   3.461143511671875*^9, 3.461143511703125*^9}, {3.461146973703125*^9, 
   3.46114697421875*^9}, {3.4613214190625*^9, 3.461321419859375*^9}, {
   3.461391395359375*^9, 3.46139139540625*^9}, {3.461391720625*^9, 
   3.461391721515625*^9}, {3.461393254734375*^9, 3.461393260328125*^9}, {
   3.461475327375*^9, 3.461475327421875*^9}}],

Cell[BoxData[
 RowBox[{"ListAnimate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{"#", ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "0"}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}], "&"}], "/@", "grs2"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4604359020625*^9, 3.460435905625*^9}, {
   3.460435966578125*^9, 3.46043596928125*^9}, {3.460436203703125*^9, 
   3.460436214078125*^9}, {3.460439171453125*^9, 3.460439216546875*^9}, 
   3.460458090984375*^9, {3.461146956015625*^9, 3.4611469563125*^9}, 
   3.461147054734375*^9, {3.461321406671875*^9, 3.46132140678125*^9}, {
   3.461322233875*^9, 3.461322249296875*^9}, 3.46139173053125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"grs", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"vphi", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"res", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", "1", ",", "All", ",", "ny", ",", "All"}], 
             "\[RightDoubleBracket]"}], 
            RowBox[{"Sin", "[", "phi", "]"}]}], "-", 
           RowBox[{
            RowBox[{"res", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", "3", ",", "All", ",", "ny", ",", "All"}], 
             "\[RightDoubleBracket]"}], 
            RowBox[{"Cos", "[", "phi", "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"ny", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "res", "]"}], "\[LeftDoubleBracket]", 
             "4", "\[RightDoubleBracket]"}]}], "}"}]}], "]"}]}], ";", 
       RowBox[{"PrintRange", "[", 
        RowBox[{
         RowBox[{
          FractionBox["1", "2"], 
          RowBox[{"Log", "/@", 
           RowBox[{"Mean", "/@", 
            RowBox[{"Flatten", "/@", 
             SuperscriptBox["vphi", "2"]}]}]}]}], ",", "All", ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"First", "@", 
           RowBox[{"ReadSnapHeader", "[", 
            RowBox[{"\"\<screw_2_\>\"", "<>", 
             RowBox[{"ToString", "[", 
              RowBox[{
              "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
              "]"}], "<>", "\"\<.snp\>\""}], "]"}]}]}]}], "]"}]}], ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "res", "]"}], ",", "1"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.448355186265625*^9, 3.448355279*^9}, {
   3.448355321546875*^9, 3.448355362421875*^9}, {3.45024816971875*^9, 
   3.450248192734375*^9}, 3.45024979559375*^9, {3.45042553803125*^9, 
   3.450425556859375*^9}, 3.461148914328125*^9}],

Cell[BoxData[
 RowBox[{"Save", "[", 
  RowBox[{"\"\<hel_evol.m\>\"", ",", "grs"}], "]"}]], "Input",
 CellChangeTimes->{{3.448434933625*^9, 3.448434956140625*^9}, {
   3.448435005078125*^9, 3.448435010765625*^9}, {3.44843510975*^9, 
   3.44843511053125*^9}, 3.450426085984375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "27516"}], "}"}], ",", 
   RowBox[{
    RowBox[{"list", "=", 
     RowBox[{"First", "@", 
      RowBox[{"ExtractList", "[", 
       RowBox[{"grs2", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"nums", ",", "n"}], "]"}], "\[LeftDoubleBracket]", 
          RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], "]"}], "]"}], 
       "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"ListPlot", "[", "list", "]"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Log", "[", "10", "]"}], 
       RowBox[{"Fit", "[", 
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"coor", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"Last", "/@", "list"}]}], "}"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "40"}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "z"}], "}"}], ",", "z"}], "]"}]}], ",", "z"}], 
     "]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.460719603609375*^9, 3.46071970115625*^9}, {
  3.460720029140625*^9, 3.4607200585625*^9}, {3.46072012121875*^9, 
  3.4607201215625*^9}, {3.460720257171875*^9, 3.460720303578125*^9}, {
  3.460774669890625*^9, 3.4607746795*^9}, {3.460774844046875*^9, 
  3.460774844703125*^9}, {3.460774912171875*^9, 3.460774917671875*^9}, {
  3.460774973046875*^9, 3.46077497346875*^9}, {3.460775005796875*^9, 
  3.4607750064375*^9}, {3.460775044515625*^9, 3.4607750454375*^9}, {
  3.4607751930625*^9, 3.460775204984375*^9}, {3.461148957046875*^9, 
  3.461148957625*^9}, {3.461149067078125*^9, 3.46114906721875*^9}, {
  3.461323041203125*^9, 3.46132304240625*^9}, {3.461323167171875*^9, 
  3.4613231673125*^9}, {3.461323254859375*^9, 3.461323291390625*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.27880401068544447`"}]], "Output",
 CellChangeTimes->{{3.461323264671875*^9, 3.46132329178125*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"grs2", "[", 
        RowBox[{"[", "n", "]"}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "0"}], "}"}]}], ",", 
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"Fit", "[", 
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"coor", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{
               RowBox[{"ExtractList", "[", 
                RowBox[{"grs2", "[", 
                 RowBox[{"[", "n", "]"}], "]"}], "]"}], 
               "\[LeftDoubleBracket]", 
               RowBox[{"1", ",", "All", ",", 
                RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}], 
            "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"s1", ",", "s2"}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "z"}], "}"}], ",", "z"}], "]"}], ",", "z"}], 
      "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", 
     RowBox[{"Length", "[", "grs2", "]"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s1", ",", "10"}], "}"}], ",", "1", ",", 
     RowBox[{"Length", "[", 
      RowBox[{"First", "@", 
       RowBox[{"ExtractList", "[", 
        RowBox[{"First", "@", "grs2"}], "]"}]}], "]"}], ",", "1"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s2", ",", "30"}], "}"}], ",", "1", ",", 
     RowBox[{"Length", "[", 
      RowBox[{"First", "@", 
       RowBox[{"ExtractList", "[", 
        RowBox[{"First", "@", "grs2"}], "]"}]}], "]"}], ",", "1"}], "}"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.46139319328125*^9, 3.461393229671875*^9}, {
   3.4613932739375*^9, 3.461393406953125*^9}, {3.46139353446875*^9, 
   3.46139363284375*^9}, {3.461410402703125*^9, 3.4614104109375*^9}, 
   3.461484856*^9, {3.461484926765625*^9, 3.461484953875*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ListLogPlot", "[", 
    RowBox[{
     RowBox[{"Mean", "/@", 
      RowBox[{"Flatten", "/@", 
       SuperscriptBox[
        RowBox[{"res", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}],
         "\[Transpose]"]}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"TableForm", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ToString", "@", 
          RowBox[{"infos", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], ",", "func"}], "}"}], "]"}]}], 
     ",", 
     RowBox[{"Prolog", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"func", "=", 
         RowBox[{"Fit", "[", 
          RowBox[{
           RowBox[{"Take", "[", 
            RowBox[{
             RowBox[{"Transpose", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"coor", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ",", 
                RowBox[{"Log", "/@", 
                 RowBox[{"Mean", "/@", 
                  RowBox[{"Flatten", "/@", 
                   SuperscriptBox[
                    RowBox[{
                    "res", "\[LeftDoubleBracket]", "i", 
                    "\[RightDoubleBracket]"}], "\[Transpose]"]}]}]}]}], "}"}],
               "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"begin", ",", "end"}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "z"}], "}"}], ",", "z"}], "]"}]}], ";", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{"func", "/.", 
              RowBox[{"z", "\[Rule]", 
               RowBox[{"coor", "\[LeftDoubleBracket]", 
                RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}]}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"70", ",", 
             RowBox[{"func", "/.", 
              RowBox[{"z", "\[Rule]", 
               RowBox[{"coor", "\[LeftDoubleBracket]", 
                RowBox[{"2", ",", 
                 RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}]}]}], 
            "}"}]}], "}"}], "]"}]}], ")"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{"Length", "[", "res", "]"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"begin", ",", "40"}], "}"}], ",", "10", ",", "70", ",", "1"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"end", ",", "50"}], "}"}], ",", "begin", ",", "70", ",", "1"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.463097851109375*^9, 3.463097941484375*^9}, {
  3.4630980199375*^9, 3.463098026734375*^9}, {3.46309808746875*^9, 
  3.463098122171875*^9}, {3.463098165609375*^9, 3.463098166015625*^9}, {
  3.46441839615625*^9, 3.464418461203125*^9}, {3.46441858859375*^9, 
  3.464418600921875*^9}, {3.464421282296875*^9, 3.464421292984375*^9}, {
  3.46442144621875*^9, 3.464421542734375*^9}, {3.4644215856875*^9, 
  3.46442160146875*^9}, {3.46442167696875*^9, 3.464421726484375*^9}, {
  3.4644217646875*^9, 3.464421820390625*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"dif", "[", 
      SuperscriptBox[
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "coor", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", 
         
         RowBox[{"Log", "/@", 
          RowBox[{"Mean", "/@", 
           RowBox[{"Flatten", "/@", 
            SuperscriptBox[
             RowBox[{
             "res", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
             "\[Transpose]"]}]}]}]}], "}"}], "\[Transpose]"], "]"}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"ToString", "@", 
       RowBox[{"infos", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"coor", "\[LeftDoubleBracket]", 
            RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
           RowBox[{
           "decrs", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"coor", "\[LeftDoubleBracket]", 
            RowBox[{"2", ",", 
             RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], ",", 
           RowBox[{
           "decrs", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
          "}"}]}], "}"}], "]"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{"Length", "[", "res", "]"}], ",", "1"}], "}"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.463097851109375*^9, 3.463097941484375*^9}, {
  3.4630980199375*^9, 3.463098026734375*^9}, {3.46309808746875*^9, 
  3.463098122171875*^9}, {3.463098165609375*^9, 3.463098166015625*^9}, {
  3.464346945109375*^9, 3.46434699559375*^9}, {3.464409000953125*^9, 
  3.46440901696875*^9}, {3.464409245859375*^9, 3.464409264125*^9}, {
  3.464409950234375*^9, 3.464409995671875*^9}, {3.464410608875*^9, 
  3.4644106125625*^9}, {3.464414557484375*^9, 3.4644146046875*^9}, {
  3.464421916734375*^9, 3.464421917484375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"decrs", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"DecrHel", "[", 
     RowBox[{"#", ",", 
      RowBox[{"{", 
       RowBox[{"20", ",", "30"}], "}"}]}], "]"}], "&"}], "/@", 
   RowBox[{"Transpose", "[", 
    RowBox[{"res", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.464409294390625*^9, 3.46440930146875*^9}, {
   3.464409453109375*^9, 3.46440945409375*^9}, {3.464410373703125*^9, 
   3.46441037528125*^9}, {3.464410508984375*^9, 3.4644105178125*^9}, {
   3.4644306261875*^9, 3.464430641609375*^9}, 3.4644306804375*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "2.5595395250528297`"}], ",", 
   RowBox[{"-", "1.4113357890878009`"}], ",", 
   RowBox[{"-", "1.1952676687160653`"}], ",", 
   RowBox[{"-", "1.0608965327585418`"}], ",", 
   RowBox[{"-", "0.9554647762525101`"}], ",", 
   RowBox[{"-", "0.8689868962616104`"}], ",", 
   RowBox[{"-", "0.7972762587452558`"}], ",", 
   RowBox[{"-", "0.7375696763435499`"}], ",", 
   RowBox[{"-", "0.6875628340047104`"}], ",", 
   RowBox[{"-", "0.6454908473785487`"}], ",", 
   RowBox[{"-", "0.609812102140868`"}], ",", 
   RowBox[{"-", "0.49476777326690374`"}], ",", 
   RowBox[{"-", "0.49258925956598326`"}], ",", 
   RowBox[{"-", "0.4660893494354414`"}], ",", 
   RowBox[{"-", "0.45644511491978146`"}], ",", 
   RowBox[{"-", "0.44742975608904245`"}], ",", 
   RowBox[{"-", "0.4399240874650219`"}], ",", 
   RowBox[{"-", "0.4336747947238879`"}], ",", 
   RowBox[{"-", "0.42828593178976515`"}], ",", 
   RowBox[{"-", "0.42380470501743034`"}], ",", 
   RowBox[{"-", "0.4202362095977056`"}], ",", 
   RowBox[{"-", "0.4174377277274136`"}], ",", 
   RowBox[{"-", "0.4152806151288872`"}], ",", 
   RowBox[{"-", "0.4136789277020598`"}], ",", 
   RowBox[{"-", "0.41257078844805495`"}], ",", 
   RowBox[{"-", "0.41189401450698243`"}], ",", 
   RowBox[{"-", "0.41157652504364245`"}], ",", 
   RowBox[{"-", "0.41155590067282466`"}], ",", 
   RowBox[{"-", "0.4117809960893553`"}], ",", 
   RowBox[{"-", "0.41221048079084077`"}], ",", 
   RowBox[{"-", "0.4128029624523346`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.46443064878125*^9, 3.464430688453125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"decrs2", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Append", "[", 
     RowBox[{
      RowBox[{"infos", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", 
      RowBox[{"DecrHel", "[", 
       RowBox[{
        SuperscriptBox[
         RowBox[{
         "res", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
         "\[Transpose]"], ",", 
        RowBox[{"{", 
         RowBox[{"20", ",", "30"}], "}"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "res", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4643467894375*^9, 3.46434686828125*^9}, {
  3.4644094631875*^9, 3.464409464453125*^9}, {3.464416738953125*^9, 
  3.4644167411875*^9}, {3.46443070178125*^9, 3.464430708765625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"4.0017616029`", ",", "2712", ",", "10.`", ",", 
     RowBox[{"-", "2.5595395250528297`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8.0007933768`", ",", "4417", ",", "12.`", ",", 
     RowBox[{"-", "1.4113357890878009`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12.0002352872`", ",", "6266", ",", "14.`", ",", 
     RowBox[{"-", "1.1952676687160653`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16.0018290572`", ",", "8067", ",", "16.`", ",", 
     RowBox[{"-", "1.0608965327585418`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"20.0013492007`", ",", "10003", ",", "18.`", ",", 
     RowBox[{"-", "0.9554647762525101`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24.0002811819`", ",", "11974", ",", "20.`", ",", 
     RowBox[{"-", "0.8689868962616104`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"28.0007943747`", ",", "13870", ",", "22.`", ",", 
     RowBox[{"-", "0.7972762587452558`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"32.0011571519`", ",", "15796", ",", "24.`", ",", 
     RowBox[{"-", "0.7375696763435499`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"36.0021645332`", ",", "17742", ",", "26.`", ",", 
     RowBox[{"-", "0.6875628340047104`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"40.0014449402`", ",", "19701", ",", "28.`", ",", 
     RowBox[{"-", "0.6454908473785487`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"44.0011605801`", ",", "21840", ",", "30.`", ",", 
     RowBox[{"-", "0.609812102140868`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"64.0005935932`", ",", "32564", ",", "40.`", ",", 
     RowBox[{"-", "0.49476777326690374`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"64.0003238542`", ",", "32753", ",", "42.`", ",", 
     RowBox[{"-", "0.49258925956598326`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"68.0005529101`", ",", "35091", ",", "44.`", ",", 
     RowBox[{"-", "0.4660893494354414`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"72.0001867285`", ",", "37440", ",", "46.`", ",", 
     RowBox[{"-", "0.45644511491978146`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"76.0000712443`", ",", "39583", ",", "48.`", ",", 
     RowBox[{"-", "0.44742975608904245`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"80.0009178402`", ",", "41999", ",", "50.`", ",", 
     RowBox[{"-", "0.4399240874650219`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"84.0017850255`", ",", "44457", ",", "52.`", ",", 
     RowBox[{"-", "0.4336747947238879`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"88.0002379834`", ",", "46942", ",", "54.`", ",", 
     RowBox[{"-", "0.42828593178976515`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"92.0006141806`", ",", "49143", ",", "56.`", ",", 
     RowBox[{"-", "0.42380470501743034`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"96.0006489186`", ",", "51679", ",", "58.`", ",", 
     RowBox[{"-", "0.4202362095977056`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100.0006520609`", ",", "54269", ",", "60.`", ",", 
     RowBox[{"-", "0.4174377277274136`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"104.0004589638`", ",", "56870", ",", "62.`", ",", 
     RowBox[{"-", "0.4152806151288872`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"108.0001928153`", ",", "59145", ",", "64.`", ",", 
     RowBox[{"-", "0.4136789277020598`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"112.0017659381`", ",", "61841", ",", "66.`", ",", 
     RowBox[{"-", "0.41257078844805495`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"116.0004051663`", ",", "64606", ",", "68.`", ",", 
     RowBox[{"-", "0.41189401450698243`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"120.0009113658`", ",", "66917", ",", "70.`", ",", 
     RowBox[{"-", "0.41157652504364245`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"124.0011566441`", ",", "69819", ",", "72.`", ",", 
     RowBox[{"-", "0.41155590067282466`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"128.0005303375`", ",", "72779", ",", "74.`", ",", 
     RowBox[{"-", "0.4117809960893553`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"132.0017400157`", ",", "75914", ",", "76.`", ",", 
     RowBox[{"-", "0.41221048079084077`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"136.001217315`", ",", "78285", ",", "78.`", ",", 
     RowBox[{"-", "0.4128029624523346`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.46434687159375*^9, 3.4644089545*^9, 3.4644094668125*^9, {
   3.4644167188125*^9, 3.464416743046875*^9}, 3.464430717046875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogLogPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"#", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
      ",", 
      RowBox[{"-", 
       RowBox[{
       "#", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}]}], "}"}],
     "&"}], "/@", "decrs2"}], "]"}]], "Input",
 CellChangeTimes->{{3.464409487171875*^9, 3.464409493671875*^9}, {
  3.464410581234375*^9, 3.464410582140625*^9}, {3.46441467021875*^9, 
  3.464414672171875*^9}, {3.4644167439375*^9, 3.46441675559375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    PointBox[{{2.302585092994046, 0.9398273692861397}, {2.4849066497880004`, 
     0.3445366240674719}, {2.6390573296152584`, 0.17837015085871125`}, {
     2.772588722239781, 0.05911433627013371}, {
     2.8903717578961645`, -0.04555738018590512}, {
     2.995732273553991, -0.14042723293099918`}, {
     3.091042453358316, -0.22655403698306106`}, {
     3.1780538303479458`, -0.3043947188327423}, {
     3.258096538021482, -0.37460205870172913`}, {
     3.332204510175204, -0.4377442479151765}, {
     3.4011973816621555`, -0.4946043985428079}, {
     3.6888794541139363`, -0.7036667714116998}, {
     3.7376696182833684`, -0.7080795970941329}, {
     3.784189633918261, -0.7633779262497521}, {
     3.828641396489095, -0.7842868163620202}, {
     3.871201010907891, -0.8042357232216739}, {
     3.912023005428146, -0.8211530954431686}, {
     3.9512437185814275`, -0.8354603466756702}, {
     3.9889840465642745`, -0.8479642415270189}, {
     4.02535169073515, -0.8584825312335612}, {
     4.060443010546419, -0.8669383219904109}, {
     4.0943445622221, -0.8736199009598811}, {
     4.127134385045092, -0.8788008062253682}, {
     4.1588830833596715`, -0.8826651429927254}, {
     4.189654742026425, -0.8853474795715104}, {
     4.219507705176107, -0.8869892090684022}, {
     4.248495242049359, -0.8877603100703755}, {
     4.276666119016055, -0.8878104219847596}, {
     4.30406509320417, -0.8872636338521639}, {
     4.330733340286331, -0.8862211843792518}, {
     4.356708826689592, -0.8847848883571662}}]}, {}},
  CoordinatesToolOptions :> {"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{2.302585092994046, -0.8878104219847596},
  FrameTicks->{{{{0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"5.0\"", 5., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {3.912023005428146, 
       FormBox[
        TagBox[
         InterpretationBox["\"50.0\"", 50., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"20.0\"", 20., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.0986122886681098`, 
       FormBox[
        TagBox[
         InterpretationBox["\"3.0\"", 3., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {3.4011973816621555`, 
       FormBox[
        TagBox[
         InterpretationBox["\"30.0\"", 30., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.4054651081081644, 
       FormBox[
        TagBox[
         InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.70805020110221, 
       FormBox[
        TagBox[
         InterpretationBox["\"15.0\"", 15., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.9459101490553132`, 
       FormBox[
        TagBox[
         InterpretationBox["\"7.0\"", 7., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {4.248495242049359, 
       FormBox[
        TagBox[
         InterpretationBox["\"70.0\"", 70., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.09531017980432493, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.1823215567939548, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.26236426446749106`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.336472236621213, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.47000362924573563`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5306282510621705, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5877866649021191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6418538861723948, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.3978952727983707`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.4849066497880004`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.5649493574615367`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.6390573296152584`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.772588722239781, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.833213344056216, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.8903717578961645`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.9444389791664403`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{0., 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm]}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm]}, {0.4054651081081644, 
       FormBox["\"\"", TraditionalForm]}, {2.70805020110221, 
       FormBox["\"\"", TraditionalForm]}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm]}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm]}, {0.09531017980432493, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.1823215567939548, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.26236426446749106`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.336472236621213, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.47000362924573563`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5306282510621705, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5877866649021191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6418538861723948, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.3978952727983707`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.4849066497880004`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.5649493574615367`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.6390573296152584`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.772588722239781, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.833213344056216, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.8903717578961645`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.9444389791664403`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{2.302585092994046, 
       FormBox["10", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {3.912023005428146, 
       FormBox["50", TraditionalForm]}, {6.214608098422191, 
       FormBox["500", TraditionalForm]}, {2.995732273553991, 
       FormBox["20", TraditionalForm]}, {5.298317366548036, 
       FormBox["200", TraditionalForm]}, {3.4011973816621555`, 
       FormBox["30", TraditionalForm]}, {5.703782474656201, 
       FormBox["300", TraditionalForm]}, {2.70805020110221, 
       FormBox["15", TraditionalForm]}, {5.0106352940962555`, 
       FormBox["150", TraditionalForm]}, {4.248495242049359, 
       FormBox["70", TraditionalForm]}, {6.551080335043404, 
       FormBox["700", TraditionalForm]}, {2.3978952727983707`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.4849066497880004`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.5649493574615367`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.6390573296152584`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.772588722239781, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.833213344056216, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.8903717578961645`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.9444389791664403`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.700480365792417, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.787491742782046, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.867534450455582, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.941642422609304, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.075173815233827, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.135798437050262, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.19295685089021, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.247024072160486, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm]}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm]}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm]}, {2.70805020110221, 
       FormBox["\"\"", TraditionalForm]}, {5.0106352940962555`, 
       FormBox["\"\"", TraditionalForm]}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm]}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm]}, {2.3978952727983707`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.4849066497880004`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.5649493574615367`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.6390573296152584`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.772588722239781, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.833213344056216, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.8903717578961645`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.9444389791664403`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.700480365792417, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.787491742782046, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.867534450455582, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.941642422609304, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.075173815233827, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.135798437050262, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.19295685089021, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.247024072160486, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{2.302585092994046, 4.356708826689592}, {-0.8878104219847596, 
   0.9398273692861397}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{2.302585092994046, 
      FormBox["10", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {3.912023005428146, 
      FormBox["50", TraditionalForm]}, {6.214608098422191, 
      FormBox["500", TraditionalForm]}, {2.995732273553991, 
      FormBox["20", TraditionalForm]}, {5.298317366548036, 
      FormBox["200", TraditionalForm]}, {3.4011973816621555`, 
      FormBox["30", TraditionalForm]}, {5.703782474656201, 
      FormBox["300", TraditionalForm]}, {2.70805020110221, 
      FormBox["15", TraditionalForm]}, {5.0106352940962555`, 
      FormBox["150", TraditionalForm]}, {4.248495242049359, 
      FormBox["70", TraditionalForm]}, {6.551080335043404, 
      FormBox["700", TraditionalForm]}, {2.3978952727983707`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.4849066497880004`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.5649493574615367`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.6390573296152584`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.772588722239781, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.833213344056216, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.8903717578961645`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.9444389791664403`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.700480365792417, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.787491742782046, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.867534450455582, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.941642422609304, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.075173815233827, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.135798437050262, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.19295685089021, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.247024072160486, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.396929655216146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{0., 
      FormBox[
       TagBox[
        InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {3.912023005428146, 
      FormBox[
       TagBox[
        InterpretationBox["\"50.0\"", 50., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"20.0\"", 20., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.0986122886681098`, 
      FormBox[
       TagBox[
        InterpretationBox["\"3.0\"", 3., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {3.4011973816621555`, 
      FormBox[
       TagBox[
        InterpretationBox["\"30.0\"", 30., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.4054651081081644, 
      FormBox[
       TagBox[
        InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.70805020110221, 
      FormBox[
       TagBox[
        InterpretationBox["\"15.0\"", 15., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.9459101490553132`, 
      FormBox[
       TagBox[
        InterpretationBox["\"7.0\"", 7., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {4.248495242049359, 
      FormBox[
       TagBox[
        InterpretationBox["\"70.0\"", 70., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.09531017980432493, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.1823215567939548, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.26236426446749106`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.336472236621213, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.47000362924573563`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.5306282510621705, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.5877866649021191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.6418538861723948, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.3978952727983707`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.4849066497880004`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.5649493574615367`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.6390573296152584`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.772588722239781, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.833213344056216, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.8903717578961645`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.9444389791664403`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{3.46443072521875*^9}],

Cell[BoxData["j"], "Input",
 CellChangeTimes->{3.46443072425*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    PointBox[{{2.302585092994046, 0.5662478772649246}, {
     2.995732273553991, -0.0006430576061260352}, {
     3.4011973816621555`, -0.3683058355731905}, {
     3.6888794541139363`, -0.6347644711933349}, {
     3.912023005428146, -0.8376420986045758}, {
     4.0943445622221, -0.9979098475253524}, {
     4.248495242049359, -1.1285412276405777`}, {
     4.382026634673881, -1.2271442325047788`}, {
     4.382026634673881, -1.2378621311842957`}, {
     4.499809670330265, -1.2401274219929348`}, {
     4.382026634673881, -1.2658318723771378`}, {
     4.499809670330265, -1.263724280092418}, {
     4.499809670330265, -1.336611139179872}, {
     4.605170185988092, -1.3384571341894842`}, {
     4.605170185988092, -1.413928263187796}, {
     4.700480365792417, -1.4161388324429127`}, {
     4.700480365792417, -1.4852297505499452`}, {
     4.787491742782046, -1.5498480744850025`}, {
     4.941642422609304, -1.6106552031917987`}, {
     4.941642422609304, -1.6640755229825124`}}]}, {}},
  CoordinatesToolOptions :> {"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{2.302585092994046, -1.6640755229825124`},
  FrameTicks->{{{{-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.00\"", 1., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"5.00\"", 5., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.20\"", 0.2, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"2.00\"", 2., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.203972804325936, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.30\"", 0.30000000000000004`, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.0986122886681098`, 
       FormBox[
        TagBox[
         InterpretationBox["\"3.00\"", 3., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.897119984885881, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.15\"", 0.15000000000000002`, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.4054651081081644, 
       FormBox[
        TagBox[
         InterpretationBox["\"1.50\"", 1.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.3566749439387323, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.70\"", 0.7000000000000001, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.9459101490553132`, 
       FormBox[
        TagBox[
         InterpretationBox["\"7.00\"", 7., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.2072749131897207`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.120263536200091, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.040220828526554, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.9661128563728327`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.8170772772123447`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.7429693050586228`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6739764335716714`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.9162907318741551, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.09531017980432493, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.1823215567939548, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.26236426446749106`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.336472236621213, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.47000362924573563`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5306282510621705, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5877866649021191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6418538861723948, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm]}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm]}, {-1.897119984885881, 
       FormBox["\"\"", TraditionalForm]}, {0.4054651081081644, 
       FormBox["\"\"", TraditionalForm]}, {-0.3566749439387323, 
       FormBox["\"\"", TraditionalForm]}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm]}, {-2.2072749131897207`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.120263536200091, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.040220828526554, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.9661128563728327`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.8170772772123447`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.7429693050586228`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6739764335716714`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.9162907318741551, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.09531017980432493, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.1823215567939548, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.26236426446749106`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.336472236621213, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.47000362924573563`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5306282510621705, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5877866649021191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6418538861723948, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{2.302585092994046, 
       FormBox["10", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {3.912023005428146, 
       FormBox["50", TraditionalForm]}, {6.214608098422191, 
       FormBox["500", TraditionalForm]}, {2.995732273553991, 
       FormBox["20", TraditionalForm]}, {5.298317366548036, 
       FormBox["200", TraditionalForm]}, {3.4011973816621555`, 
       FormBox["30", TraditionalForm]}, {5.703782474656201, 
       FormBox["300", TraditionalForm]}, {2.70805020110221, 
       FormBox["15", TraditionalForm]}, {5.0106352940962555`, 
       FormBox["150", TraditionalForm]}, {4.248495242049359, 
       FormBox["70", TraditionalForm]}, {6.551080335043404, 
       FormBox["700", TraditionalForm]}, {2.3978952727983707`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.4849066497880004`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.5649493574615367`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.6390573296152584`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.772588722239781, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.833213344056216, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.8903717578961645`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.9444389791664403`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.700480365792417, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.787491742782046, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.867534450455582, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.941642422609304, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.075173815233827, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.135798437050262, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.19295685089021, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.247024072160486, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm]}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm]}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm]}, {2.70805020110221, 
       FormBox["\"\"", TraditionalForm]}, {5.0106352940962555`, 
       FormBox["\"\"", TraditionalForm]}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm]}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm]}, {2.3978952727983707`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.4849066497880004`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.5649493574615367`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.6390573296152584`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.772588722239781, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.833213344056216, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.8903717578961645`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.9444389791664403`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.700480365792417, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.787491742782046, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.867534450455582, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.941642422609304, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.075173815233827, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.135798437050262, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.19295685089021, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.247024072160486, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{2.302585092994046, 4.941642422609304}, {-1.6640755229825124`, 
   0.5662478772649246}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{2.302585092994046, 
      FormBox["10", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {3.912023005428146, 
      FormBox["50", TraditionalForm]}, {6.214608098422191, 
      FormBox["500", TraditionalForm]}, {2.995732273553991, 
      FormBox["20", TraditionalForm]}, {5.298317366548036, 
      FormBox["200", TraditionalForm]}, {3.4011973816621555`, 
      FormBox["30", TraditionalForm]}, {5.703782474656201, 
      FormBox["300", TraditionalForm]}, {2.70805020110221, 
      FormBox["15", TraditionalForm]}, {5.0106352940962555`, 
      FormBox["150", TraditionalForm]}, {4.248495242049359, 
      FormBox["70", TraditionalForm]}, {6.551080335043404, 
      FormBox["700", TraditionalForm]}, {2.3978952727983707`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.4849066497880004`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.5649493574615367`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.6390573296152584`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.772588722239781, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.833213344056216, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.8903717578961645`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.9444389791664403`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.700480365792417, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.787491742782046, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.867534450455582, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.941642422609304, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.075173815233827, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.135798437050262, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.19295685089021, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.247024072160486, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.396929655216146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{-2.3025850929940455`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0., 
      FormBox[
       TagBox[
        InterpretationBox["\"1.00\"", 1., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"5.00\"", 5., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.20\"", 0.2, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"2.00\"", 2., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.203972804325936, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.30\"", 0.30000000000000004`, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.0986122886681098`, 
      FormBox[
       TagBox[
        InterpretationBox["\"3.00\"", 3., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.897119984885881, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.15\"", 0.15000000000000002`, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.4054651081081644, 
      FormBox[
       TagBox[
        InterpretationBox["\"1.50\"", 1.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.3566749439387323, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.70\"", 0.7000000000000001, AutoDelete -> True],
         NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.9459101490553132`, 
      FormBox[
       TagBox[
        InterpretationBox["\"7.00\"", 7., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.2072749131897207`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.120263536200091, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.040220828526554, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.9661128563728327`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.8170772772123447`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.7429693050586228`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6739764335716714`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.9162907318741551, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659907, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782628`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.09531017980432493, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.1823215567939548, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.26236426446749106`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.336472236621213, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.47000362924573563`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.5306282510621705, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.5877866649021191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.6418538861723948, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{
  3.4644094943125*^9, 3.46441093703125*^9, {3.464414660640625*^9, 
   3.464414672796875*^9}, 3.464416755953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0421\:043e\:0445\:0440\:0430\:043d\:0435\:043d\:0438\:0435 \:043f\
\:0440\:043e\:0444\:0438\:043b\:0435\:0439", "Subsection",
 CellChangeTimes->{{3.463911631328125*^9, 3.463911636734375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetWorkDir", "[", "]"}]], "Input",
 CellChangeTimes->{{3.4634707848125*^9, 3.463470787046875*^9}, {
  3.4634708626875*^9, 3.463470873140625*^9}, {3.467373631809*^9, 
  3.467373636756*^9}, {3.467373685362*^9, 3.46737368892*^9}}],

Cell[BoxData["\<\"D:\\\\\:0420\:0430\:0431\:043e\:0442\:0430\\\\Programs\\\\\
torgrid\"\>"], "Output",
 CellChangeTimes->{
  3.463470873453125*^9, 3.464421977484375*^9, 3.464431561015625*^9, {
   3.467373624623*^9, 3.467373637041*^9}, {3.467373681112*^9, 
   3.467373689686*^9}, 3.4674385226099997`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"output", "=", 
   RowBox[{"MapThread", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"#1", ",", "#2"}], "}"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{"infos", ",", "20"}], "]"}], ",", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Mean", "[", 
           RowBox[{"Flatten", "[", 
            SuperscriptBox["#", "\[Transpose]"], "]"}], "]"}], "&"}], ",", 
         RowBox[{"Transpose", "[", 
          RowBox[{"res", ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}]}], "]"}], ",", 
         
         RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.464422005625*^9, 3.464422031046875*^9}, {
  3.46442228878125*^9, 3.4644223545*^9}, {3.46442249321875*^9, 
  3.464422496828125*^9}, {3.464422539203125*^9, 3.464422542390625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"output", "=", 
   RowBox[{"MapThread", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"#1", ",", 
        SuperscriptBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "coor", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
           ",", "#2"}], "}"}], "\[Transpose]"]}], "}"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{"infos", ",", "20"}], "]"}], ",", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Mean", "[", 
           RowBox[{"Flatten", "[", 
            SuperscriptBox["#", "\[Transpose]"], "]"}], "]"}], "&"}], ",", 
         RowBox[{"Transpose", "[", 
          RowBox[{"res", ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}]}], "]"}], ",", 
         
         RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.464422005625*^9, 3.464422031046875*^9}, {
  3.46442228878125*^9, 3.4644223545*^9}, {3.46442249321875*^9, 
  3.464422496828125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"output", "=", 
   RowBox[{"MapThread", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"#1", ",", 
        SuperscriptBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "coor", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
           ",", "#2"}], "}"}], "\[Transpose]"]}], "}"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{"infos", ",", "31"}], "]"}], ",", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          FractionBox[
           RowBox[{"Total", "[", 
            RowBox[{"Flatten", "[", 
             RowBox[{"cr", 
              SuperscriptBox["#", "\[Transpose]"]}], "]"}], "]"}], 
           RowBox[{"Total", "[", 
            RowBox[{"Flatten", "[", "cr", "]"}], "]"}]], "&"}], ",", 
         RowBox[{"Transpose", "[", 
          RowBox[{"res", ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}]}], "]"}], ",", 
         
         RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.464422005625*^9, 3.464422031046875*^9}, {
  3.46442228878125*^9, 3.4644223545*^9}, {3.46442249321875*^9, 
  3.4644225110625*^9}, {3.464431375421875*^9, 3.464431387375*^9}, {
  3.464431565453125*^9, 3.464431565515625*^9}}],

Cell[BoxData[
 RowBox[{"PutAppend", "[", 
  RowBox[{
   RowBox[{"Sequence", "@@", "output"}], ",", "\"\<hels.dat\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.463467276171875*^9, 3.463467437609375*^9}, {
   3.463470614953125*^9, 3.463470638453125*^9}, {3.463470795703125*^9, 
   3.4634708040625*^9}, {3.463470859859375*^9, 3.46347088278125*^9}, {
   3.46347093734375*^9, 3.4634709706875*^9}, {3.4643467485625*^9, 
   3.464346757953125*^9}, 3.464422010828125*^9, 3.46442231709375*^9, {
   3.464422502234375*^9, 3.464422502609375*^9}}],

Cell[BoxData[
 RowBox[{"Close", "[", "\"\<hels.dat\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.463470926140625*^9, 3.463470929828125*^9}}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"hels", "=", 
   RowBox[{"ReadList", "[", "\"\<hels01.dat\>\"", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.467373371368*^9, 3.467373430613*^9}, 
   3.467373696475*^9, {3.467373780473*^9, 3.467373785665*^9}, {
   3.467438504935*^9, 3.467438526737*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Fit", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"First", "[", "#", "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"Last", "[", "#", "]"}], "]"}]}], "}"}], "&"}], "/@", 
      RowBox[{"Take", "[", 
       RowBox[{
        RowBox[{"hels", "\[LeftDoubleBracket]", 
         RowBox[{"num", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"{", 
         RowBox[{"10", ",", "20"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "z"}], "}"}], ",", "z"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"num", ",", 
     RowBox[{"Length", "[", "hels", "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.467438017443*^9, 3.467438034186*^9}, {
  3.4674387526280003`*^9, 3.467438754124*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "1.9663087056440427`"}], "-", 
    RowBox[{"2.1155530969020133`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.9189332893858504`"}], "-", 
    RowBox[{"1.5522987729411224`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.8693857871508435`"}], "-", 
    RowBox[{"1.3650247878986175`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.8345046329513328`"}], "-", 
    RowBox[{"1.2345445558683479`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.8070585969478463`"}], "-", 
    RowBox[{"1.1314497825651462`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.7842296895292227`"}], "-", 
    RowBox[{"1.0472594650056068`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.7645470826100211`"}], "-", 
    RowBox[{"0.9772945948358875`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.7471051416175323`"}], "-", 
    RowBox[{"0.9183310791996447`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.7313218945528441`"}], "-", 
    RowBox[{"0.8680109806977572`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.7167941824384494`"}], "-", 
    RowBox[{"0.824596549651564`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.7032560325577122`"}], "-", 
    RowBox[{"0.7867917362781621`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.645217091667522`"}], "-", 
    RowBox[{"0.6553945391925422`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.6325294278062747`"}], "-", 
    RowBox[{"0.6380383373828108`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.6253485813103041`"}], "-", 
    RowBox[{"0.6199191214620267`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.6148894895650796`"}], "-", 
    RowBox[{"0.6068597427875893`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.605980315307154`"}], "-", 
    RowBox[{"0.5948000604649218`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.597623608252298`"}], "-", 
    RowBox[{"0.5842433213724272`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.5895962366552172`"}], "-", 
    RowBox[{"0.5748612241489257`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.5818850505370003`"}], "-", 
    RowBox[{"0.5666235451092747`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.5745007887728222`"}], "-", 
    RowBox[{"0.5594874175201254`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.5675030669902579`"}], "-", 
    RowBox[{"0.5533250962690665`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.56093638049656`"}], "-", 
    RowBox[{"0.5480078570419378`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.5547885378370212`"}], "-", 
    RowBox[{"0.5434558590021212`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.5490300309715364`"}], "-", 
    RowBox[{"0.539605743395409`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.5436429623487848`"}], "-", 
    RowBox[{"0.536388432951195`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.5386079943183046`"}], "-", 
    RowBox[{"0.5337349217550142`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.5339201829197109`"}], "-", 
    RowBox[{"0.5315798840961793`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.5295481597490677`"}], "-", 
    RowBox[{"0.529881829903236`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.5254677121379645`"}], "-", 
    RowBox[{"0.5285961741646138`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.521659349714395`"}], "-", 
    RowBox[{"0.5276846118423728`", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1.5180950596749982`"}], "-", 
    RowBox[{"0.5271140202244207`", " ", "z"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.467438154599*^9, {3.467438754883*^9, 3.467438776167*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"hels", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1", ",", "3"}], "]"}], "]"}], "//", 
     "Rationalize"}], ",", 
    RowBox[{"-", 
     RowBox[{"D", "[", 
      RowBox[{"%", ",", "z"}], "]"}]}]}], "}"}], "\[Transpose]"]], "Input",
 CellChangeTimes->{{3.467438459175*^9, 3.4674384837209997`*^9}, {
  3.467438774584*^9, 3.467438774648*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"10", ",", "2.1155530969020133`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "1.5522987729411224`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "1.3650247878986175`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "1.2345445558683479`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"18", ",", "1.1314497825651462`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"20", ",", "1.0472594650056068`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"22", ",", "0.9772945948358875`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24", ",", "0.9183310791996447`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"26", ",", "0.8680109806977572`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"28", ",", "0.824596549651564`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"30", ",", "0.7867917362781621`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"40", ",", "0.6553945391925422`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"42", ",", "0.6380383373828108`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"44", ",", "0.6199191214620267`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"46", ",", "0.6068597427875893`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"48", ",", "0.5948000604649218`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"50", ",", "0.5842433213724272`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"52", ",", "0.5748612241489257`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"54", ",", "0.5666235451092747`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"56", ",", "0.5594874175201254`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"58", ",", "0.5533250962690665`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"60", ",", "0.5480078570419378`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"62", ",", "0.5434558590021212`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"64", ",", "0.539605743395409`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"66", ",", "0.536388432951195`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"68", ",", "0.5337349217550142`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"70", ",", "0.5315798840961793`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"72", ",", "0.529881829903236`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"74", ",", "0.5285961741646138`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"76", ",", "0.5276846118423728`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"78", ",", "0.5271140202244207`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.467438465757*^9, 3.467438484211*^9}, {3.467438759396*^9,
   3.467438776814*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListLogLogPlot", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.467438171156*^9, 3.467438178415*^9}, {3.467438237762*^9,
    3.467438314883*^9}, {3.4674383504*^9, 3.4674383532790003`*^9}, 
   3.467438783627*^9}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ListLogPlot", "[", 
    RowBox[{
     RowBox[{"hels", "[", 
      RowBox[{"[", 
       RowBox[{"num", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"hels", "[", 
       RowBox[{"[", 
        RowBox[{"num", ",", "1"}], "]"}], "]"}]}], ",", 
     RowBox[{"Prolog", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"func", "=", 
         RowBox[{"Fit", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"First", "[", "#", "]"}], ",", 
               RowBox[{"Log", "[", 
                RowBox[{"Last", "[", "#", "]"}], "]"}]}], "}"}], "&"}], "/@", 
            
            RowBox[{"Take", "[", 
             RowBox[{
              RowBox[{"hels", "\[LeftDoubleBracket]", 
               RowBox[{"num", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
              RowBox[{"{", 
               RowBox[{"begin", ",", "end"}], "}"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "z"}], "}"}], ",", "z"}], "]"}]}], ";", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"coor", "\[LeftDoubleBracket]", 
              RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
             RowBox[{"func", "/.", 
              RowBox[{"z", "\[Rule]", 
               RowBox[{"coor", "\[LeftDoubleBracket]", 
                RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}]}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"coor", "\[LeftDoubleBracket]", 
              RowBox[{"2", ",", 
               RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], ",", 
             RowBox[{"func", "/.", 
              RowBox[{"z", "\[Rule]", 
               RowBox[{"coor", "\[LeftDoubleBracket]", 
                RowBox[{"2", ",", 
                 RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}]}]}], 
            "}"}]}], "}"}], "]"}]}], ")"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"num", ",", "1", ",", 
     RowBox[{"Length", "[", "hels", "]"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"begin", ",", "40"}], "}"}], ",", "10", ",", "70", ",", "1"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"end", ",", "50"}], "}"}], ",", "begin", ",", "70", ",", "1"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.467373435638*^9, 3.467373451855*^9}, {3.46737373152*^9, 
   3.467373767668*^9}, {3.467373978072*^9, 3.4673739788129997`*^9}, {
   3.4674370009700003`*^9, 3.46743702121*^9}, 3.467437086203*^9, {
   3.46743713223*^9, 3.467437135385*^9}, {3.4674372257609997`*^9, 
   3.467437233898*^9}, {3.467437281275*^9, 3.467437287644*^9}, {
   3.46743732606*^9, 3.467437337823*^9}, {3.46743861015*^9, 
   3.467438610626*^9}, {3.4674386523459997`*^9, 3.467438652731*^9}}],

Cell[CellGroupData[{

Cell["\:041f\:0440\:043e\:0432\:0435\:0440\:043a\:0438", "Section",
 CellChangeTimes->{{3.46372869771875*^9, 3.46372870240625*^9}, {
  3.4639007774375*^9, 3.463900780484375*^9}}],

Cell[CellGroupData[{

Cell["\:0421\:043e\:0432\:043f\:0430\:0434\:0435\:043d\:0438\:0435 \:043f\
\:0440\:0438 \:0440\:0430\:0437\:043d\:044b\:0445 \:0434\:0435\:043b\:0435\
\:043d\:0438\:044f\:0445", "Subsection",
 CellChangeTimes->{{3.4470667236518*^9, 3.4470667365978003`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"res1", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"Monitor", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ReadSection", "[", 
        RowBox[{
         RowBox[{
         "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
         "1"}], "]"}], ";", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"res1", ",", 
         RowBox[{"{", 
          RowBox[{"vx", ",", "vy", ",", "vz", ",", "p"}], "}"}]}], "]"}]}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", "nums", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.428221763703125*^9, 3.428221767546875*^9}, {
   3.428221849*^9, 3.4282219504375*^9}, {3.43200628800287*^9, 
   3.43200632558327*^9}, {3.4320063812908697`*^9, 3.43200642035327*^9}, {
   3.43200668839327*^9, 3.4320066920436697`*^9}, 3.4320068530356703`*^9, {
   3.4322761868780003`*^9, 3.4322761873459997`*^9}, {3.4325278069363747`*^9, 
   3.4325278116707497`*^9}, {3.4331415057945004`*^9, 
   3.4331415071851254`*^9}, {3.434096889484375*^9, 3.434096908203125*^9}, 
   3.434097010875*^9, {3.434097069171875*^9, 3.434097069234375*^9}, 
   3.434097673359375*^9, 3.434109339859375*^9, 3.4341094461875*^9, 
   3.434109503421875*^9, {3.43411058984375*^9, 3.43411059396875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"res2", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"Monitor", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ReadSection", "[", 
        RowBox[{
         RowBox[{
         "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
         "2"}], "]"}], ";", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"res2", ",", 
         RowBox[{"{", 
          RowBox[{"vx", ",", "vy", ",", "vz", ",", "p"}], "}"}]}], "]"}]}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", "nums", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.43411060009375*^9, 3.434110609515625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"res3", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"Monitor", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ReadSection", "[", 
        RowBox[{
         RowBox[{
         "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
         "3"}], "]"}], ";", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"res3", ",", 
         RowBox[{"{", 
          RowBox[{"vx", ",", "vy", ",", "vz", ",", "p"}], "}"}]}], "]"}]}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", "nums", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.43411060009375*^9, 3.434110609515625*^9}, {
  3.434529350388*^9, 3.4345293575755*^9}}],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Max", "[", 
     RowBox[{"Abs", "[", 
      RowBox[{"Flatten", "[", "#", "]"}], "]"}], "]"}], "&"}], ",", 
   RowBox[{"res1", "-", "res3"}], ",", 
   RowBox[{"{", "2", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.434097102953125*^9, 3.434097207921875*^9}, 
   3.43452936604425*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"dump1", "=", 
   RowBox[{"ReadList", "[", "\"\<pumpflow_1_2.snp\>\"", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.434111238828125*^9, 3.434111240359375*^9}, 
   3.434111525265625*^9, 3.434111630171875*^9, {3.4341123659375*^9, 
   3.434112366046875*^9}, 3.434112442546875*^9, {3.434112854890625*^9, 
   3.434112872046875*^9}, {3.434113086015625*^9, 3.434113087171875*^9}, {
   3.434113219328125*^9, 3.43411323353125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"dump3", "=", 
   RowBox[{"ReadList", "[", "\"\<pumpflow_3_2.snp\>\"", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.43411090959375*^9, 3.434110931640625*^9}, {
   3.43411100865625*^9, 3.43411100871875*^9}, {3.434111230078125*^9, 
   3.4341112323125*^9}, {3.43411152015625*^9, 3.434111522078125*^9}, 
   3.4341115728125*^9, {3.43411236871875*^9, 3.4341123688125*^9}, 
   3.4341124453125*^9, {3.4341128596875*^9, 3.434112874328125*^9}, {
   3.4341130900625*^9, 3.434113090578125*^9}, {3.43411322240625*^9, 
   3.43411323690625*^9}, {3.434529612684875*^9, 3.43452961516925*^9}, {
   3.4348754179772835`*^9, 3.434875418664735*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"dump", "=", 
   RowBox[{"ReadList", "[", "\"\<pumpflow.dmp\>\"", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4348719030997477`*^9, 3.4348719192079887`*^9}, {
  3.434877659413225*^9, 3.4348776603819065`*^9}}],

Cell[BoxData[
 RowBox[{"Dimensions", "/@", "dump"}]], "Input",
 CellChangeTimes->{{3.434529644216125*^9, 3.434529647809875*^9}, 
   3.4348719228327336`*^9}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"dump3", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", "All", ",", "5"}], "]"}], "]"}], "\[Transpose]"], "//",
   "TableForm"}]], "Input",
 CellChangeTimes->{{3.4348719308477945`*^9, 3.4348719739541345`*^9}, {
   3.434872216312071*^9, 3.434872216640173*^9}, {3.4348722984469137`*^9, 
   3.434872298837511*^9}, {3.434877798262824*^9, 3.4348779153795786`*^9}, 
   3.4470665873918*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"res3", "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "3", ",", "All", ",", "5"}], "]"}], "]"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.434871544546867*^9, 3.434871552015091*^9}, {
   3.434871642805574*^9, 3.4348716516330776`*^9}, {3.434871765609428*^9, 
   3.4348717700778637`*^9}, 3.4470665873918*^9}],

Cell[BoxData[
 RowBox[{"ArrayPlot", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"res1", "-", "res3"}], ")"}], "[", 
   RowBox[{"[", 
    RowBox[{"7", ",", "1", ",", "All", ",", "5"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4348646838736424`*^9, 3.434864700966189*^9}, {
   3.4348680241228476`*^9, 3.4348680568705416`*^9}, {3.4348716290096703`*^9, 
   3.4348716349467525`*^9}, 3.4348723609737616`*^9, {3.434874343224826*^9, 
   3.43487436575449*^9}, {3.434874531180343*^9, 3.4348745623968954`*^9}, {
   3.4348757066444597`*^9, 3.4348757589064054`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ArrayPlot", "[", 
  SuperscriptBox[
   RowBox[{"dump3", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", "+", "5"}], ",", "All", ",", "6"}], "]"}], "]"}], 
   "\[Transpose]"], "]"}]], "Input",
 CellChangeTimes->{{3.43411210840625*^9, 3.4341121283125*^9}, {
  3.43452962785675*^9, 3.43452969216925*^9}, {3.4348647381510706`*^9, 
  3.434864739385359*^9}}],

Cell[BoxData[
 GraphicsBox[RasterBox[CompressedData["
1:eJzt27ENwjAQBdBTlkiThk0oMgEjRKJmjTRIGYVtqCGLBEGcLlVkGVnvS9br
zv8GuNNwu1ybiOg/r4s143wm+Z8+nu+v0/1ntK8yfdZ/U4/U6/DclFJ77ey5
pXQfkiRJkiRJkiRJkiRJkiRJkiTJ3KZUet9R/X0OySwuvrZmlA==
   "], {{0, 0}, {28, 68}}, {0, 40000}],
  Frame->Automatic,
  FrameLabel->{None, None},
  FrameTicks->{{None, None}, {None, None}}]], "Output",
 CellChangeTimes->{{3.434529629216125*^9, 3.434529669809875*^9}, 
   3.434529705013*^9, 3.434860009280882*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"res1", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "1", ",", "25", ",", "6", ",", "5"}], "]"}], "]"}], 
   ",", 
   RowBox[{"res3", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "1", ",", "25", ",", "6", ",", "5"}], "]"}], "]"}], 
   ",", 
   RowBox[{"dump3", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", "5", ",", "6", ",", "5"}], "]"}], "]"}], ",", 
   RowBox[{"dump1", "[", 
    RowBox[{"[", 
     RowBox[{"9", ",", "25", ",", "6", ",", "5"}], "]"}], "]"}]}], 
  "}"}]], "Input",
 CellChangeTimes->{{3.434112770625*^9, 3.434112812828125*^9}, {
  3.434112891515625*^9, 3.434112959796875*^9}, {3.43411300465625*^9, 
  3.434113010625*^9}, {3.4341132455625*^9, 3.434113249078125*^9}, {
  3.4348647490253053`*^9, 3.4348648338318343`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"-", "1410.5`"}], ",", 
   RowBox[{"-", "1410.5`"}], ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.434112792828125*^9, 3.43411281353125*^9}, 
   3.434112900671875*^9, {3.43411293259375*^9, 3.4341129601875*^9}, 
   3.434113010875*^9, 3.434113249484375*^9, 3.434864762789961*^9, {
   3.434864804240168*^9, 3.4348648343942947`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"dump3", "=", 
   RowBox[{"ReadList", "[", "\"\<pumpflow_3_2.snp\>\"", "]"}]}], 
  ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"i", "=", "9"}], "}"}], ",", 
   RowBox[{
    SuperscriptBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"dump3", "[", 
         RowBox[{"[", 
          RowBox[{"i", "+", "5"}], "]"}], "]"}], "-", 
        RowBox[{"0", 
         RowBox[{"Take", "[", 
          RowBox[{
           RowBox[{
           "dump1", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"20", ",", "47"}], "}"}]}], "]"}]}]}], ")"}], "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "6"}], "]"}], "]"}], "\[Transpose]"], "//", 
    "TableForm"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4341110125625*^9, 3.434111020984375*^9}, {
   3.434111160234375*^9, 3.434111161609375*^9}, {3.434111196125*^9, 
   3.43411127528125*^9}, {3.434111347875*^9, 3.434111457390625*^9}, {
   3.434111490734375*^9, 3.43411149253125*^9}, {3.43411153078125*^9, 
   3.434111558734375*^9}, {3.434111591296875*^9, 3.43411161990625*^9}, {
   3.4341117595*^9, 3.43411176209375*^9}, {3.434112346625*^9, 
   3.434112349296875*^9}, {3.43411247184375*^9, 3.434112473640625*^9}, {
   3.434112595828125*^9, 3.434112597*^9}, 3.4341128448125*^9, {
   3.434113129828125*^9, 3.43411314146875*^9}, 3.434529935809875*^9, {
   3.4348600034062953`*^9, 3.4348600050311813`*^9}, {3.434860099602648*^9, 
   3.4348601013681483`*^9}, {3.4348724189540544`*^9, 3.434872460763611*^9}, {
   3.4348746712173586`*^9, 3.4348746788574457`*^9}, 3.434875468989317*^9, {
   3.4348756086826067`*^9, 3.434875609666912*^9}, 3.4348767164796124`*^9, {
   3.434877557623516*^9, 3.43487759237107*^9}, {3.434877666990816*^9, 
   3.4348776905672817`*^9}, {3.434877990483666*^9, 3.434878040808248*^9}, {
   3.4348799582826233`*^9, 3.434879960813695*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", 
     RowBox[{"-", "4402.6`"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "4402.6`", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", 
     RowBox[{"-", "4402.6`"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "4402.6`", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.7]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.434111656890625*^9, 3.43411170253125*^9, {3.4341117331875*^9, 
   3.434111762734375*^9}, {3.43411233915625*^9, 3.43411234971875*^9}, 
   3.43411239125*^9, {3.4341124525625*^9, 3.434112473921875*^9}, {
   3.434112845265625*^9, 3.434112877234375*^9}, 3.434113093078125*^9, 
   3.4341131421875*^9, {3.434113228609375*^9, 3.434113250578125*^9}, 
   3.434860013389968*^9, 3.434860101758746*^9, {3.434872412610751*^9, 
   3.434872463466545*^9}, {3.4348746738890457`*^9, 3.4348746794042826`*^9}, 
   3.434874981742371*^9, 3.4348750163805575`*^9, 3.4348751678230205`*^9, 
   3.4348752247096405`*^9, 3.4348754209614477`*^9, 3.434875469864255*^9, 
   3.4348755527959166`*^9, 3.434875611088687*^9, 3.434875652195168*^9, 
   3.4348766850443254`*^9, 3.434876717776396*^9, {3.4348775521551514`*^9, 
   3.434877593339752*^9}, {3.434877671927969*^9, 3.434877693613942*^9}, {
   3.4348779915929627`*^9, 3.4348780064669156`*^9}, 3.434878041573819*^9, 
   3.434879962407333*^9, {3.434880219076762*^9, 3.4348802230296087`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Max", "[", 
     RowBox[{"Abs", "[", 
      RowBox[{"Flatten", "[", "#", "]"}], "]"}], "]"}], "&"}], ",", 
   RowBox[{"res1", "-", "res3"}], ",", 
   RowBox[{"{", "2", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.43409769021875*^9, 3.434097690296875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"40000", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "1.552`*^6", ",", "7.866300000000001`*^-15", ",", "15576", ",", 
     "71.189`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "5.149`*^10", ",", "4.6405`*^-11", ",", "1.6068`*^7", ",", "28461"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "1.8456`*^21", ",", "0.0067369`", ",", "3.2356`*^15", ",", 
     "1.9187`*^11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "1.8150999999999998`*^46", ",", "3.8409`*^13", ",", 
     "4.0507999999999997`*^34", ",", "2.1017000000000004`*^25"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "5.2475`*^43", ",", "1.1104`*^11", ",", "1.1711000000000002`*^32", ",", 
     "6.075999999999999`*^22"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.434109516046875*^9, 3.43452941935675*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot3D", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"res1", "-", "res3"}], ")"}], "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1", ",", "All", ",", "6"}], "]"}], "]"}], 
    "\[Transpose]"], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.43409752634375*^9, 3.434097530921875*^9}, {
  3.43409770725*^9, 3.434097775109375*^9}, {3.4340978214375*^9, 
  3.434097822890625*^9}, {3.43409802128125*^9, 3.434098025078125*^9}, {
  3.43452942598175*^9, 3.434529432559875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"res3", "[", 
  RowBox[{"[", 
   RowBox[{"2", ",", "1", ",", "27", ",", "6", ",", "5"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.434104812953125*^9, 3.43410483140625*^9}, 
   3.434529441591125*^9}],

Cell[BoxData[
 RowBox[{"-", "5000"}]], "Output",
 CellChangeTimes->{{3.43410482159375*^9, 3.434104832203125*^9}, 
   3.434110278828125*^9, 3.434529442372375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Union", "@", 
  RowBox[{"Flatten", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"res1", "-", "res3"}], ")"}], "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "1"}], "]"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.43452946266925*^9, 3.434529486653625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "40000"}], ",", 
   RowBox[{"-", "5000"}], ",", 
   RowBox[{"-", "2003.5`"}], ",", 
   RowBox[{"-", "1410.5`"}], ",", "0", ",", "1410.5`", ",", "2003.5`", ",", 
   "5000", ",", "40000"}], "}"}]], "Output",
 CellChangeTimes->{3.434529488559875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "res", "]"}]], "Input",
 CellChangeTimes->{{3.4345295849505*^9, 3.434529587434875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"7", ",", "4", ",", "68", ",", "18", ",", "68"}], "}"}]], "Output",
 CellChangeTimes->{3.434529587763*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Position", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"res1", "-", "res3"}], ")"}], "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "1", ",", "All", ",", "6"}], "]"}], "]"}], ",", 
   RowBox[{"_", "?", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Abs", "[", "#", "]"}], ">", "1"}], "&"}], ")"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.43409803228125*^9, 3.43409809565625*^9}, {
  3.434109969984375*^9, 3.434109998203125*^9}, {3.43411007375*^9, 
  3.43411008078125*^9}, {3.43411250946875*^9, 3.4341125385*^9}, {
  3.434529448872375*^9, 3.4345294514505*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"25", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"25", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"25", ",", "63"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"25", ",", "64"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"26", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"26", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"26", ",", "63"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"26", ",", "64"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"27", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"27", ",", "64"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"42", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"42", ",", "64"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"43", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"43", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"43", ",", "63"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"43", ",", "64"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"44", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"44", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"44", ",", "63"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"44", ",", "64"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.434098060125*^9, 3.434098097765625*^9}, {
   3.43410997284375*^9, 3.434110001359375*^9}, {3.4341100760625*^9, 
   3.43411008309375*^9}, {3.434112515953125*^9, 3.434112540421875*^9}, 
   3.434529453653625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ArrayPlot", "[", 
  RowBox[{
   RowBox[{"Sign", "[", 
    SuperscriptBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"res1", "-", "res3"}], ")"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "1", ",", "All", ",", "6"}], "]"}], "]"}], 
     "\[Transpose]"], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.43409725478125*^9, 3.434097336046875*^9}, {
   3.434097382984375*^9, 3.434097384578125*^9}, {3.43409743703125*^9, 
   3.4340975115625*^9}, {3.43409755646875*^9, 3.434097631984375*^9}, {
   3.43409778825*^9, 3.434097815078125*^9}, {3.43409796790625*^9, 
   3.434098002296875*^9}, {3.4341100100625*^9, 3.43411001796875*^9}, 
   3.434110091265625*^9, {3.434110357703125*^9, 3.43411037253125*^9}, {
   3.434110698890625*^9, 3.434110785625*^9}, {3.434111041828125*^9, 
   3.43411104234375*^9}, {3.43452949979425*^9, 3.43452950391925*^9}}],

Cell[BoxData[
 GraphicsBox[RasterBox[CompressedData["
1:eJzt16ENACAMRcHCJuzCBIzAAuzvMDgMITjuksqa537po/UcEXVd4siW6qLd
/qE/AAAAf3qxkV9s9V9NMWUULQ==
   "], {{0, 0}, {68, 68}}, {0, 1}],
  Frame->Automatic,
  FrameLabel->{None, None},
  FrameTicks->{{None, None}, {None, None}}]], "Output",
 CellChangeTimes->{3.4345295058255*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"res2", "=", "res"}], ";"}]], "Input",
 CellChangeTimes->{{3.434097031171875*^9, 3.43409703253125*^9}, 
   3.43409707246875*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["\:041f\:0440\:043e\:0432\:0435\:0440\:043a\:0430 \:0442\:0438\:043f\
\:043e\:0432 \:044f\:0447\:0435\:0435\:043a", "Subsection",
 CellChangeTimes->{{3.392105826035*^9, 3.392105827519*^9}, 3.392109798363*^9, 
   3.429000984515625*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dr", "=", 
   RowBox[{"ReadList", "[", "\"\<node\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"nm", ",", "refr", ",", "refz"}], "}"}], "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"Partition", "[", 
     RowBox[{"dr", ",", "3"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"node", "=", 
    RowBox[{"Clue", "[", 
     RowBox[{"nm", ",", "2"}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"node", "=", 
   RowBox[{"First", "[", "nm", "]"}]}], ";"}]}], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"coor", ",", "bounds", ",", "node", ",", 
     RowBox[{"{", 
      RowBox[{"rr", ",", "rz"}], "}"}]}], "}"}], "=", 
   RowBox[{"ReadAuxFiles", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<coord\>\"", ",", "\"\<node\>\"", ",", "\"\<ref\>\""}], 
      "}"}], ",", 
     RowBox[{"NumberOfRefs", "\[Rule]", "2"}], ",", 
     RowBox[{"ProcDistrib", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.392105905792*^9, 3.392105911712*^9}, {
   3.4289946454375*^9, 3.428994646859375*^9}, {3.429001975078125*^9, 
   3.42900197646875*^9}, {3.42900546540625*^9, 3.42900546553125*^9}, 
   3.429599215328125*^9, {3.42959954696875*^9, 3.42959954853125*^9}, 
   3.429599607890625*^9, {3.42960911925*^9, 3.42960911934375*^9}, {
   3.431928861105*^9, 3.4319288613389997`*^9}, {3.431931038002*^9, 
   3.431931043222*^9}, {3.431931094094*^9, 3.431931125618*^9}, {
   3.431931193218*^9, 3.431931202693*^9}, 3.43228971125*^9, {
   3.434098165859375*^9, 3.434098167921875*^9}, 3.43410936271875*^9, {
   3.4348601677697234`*^9, 3.4348601678478427`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Union", "[", 
  RowBox[{"Flatten", "[", "node", "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4", ",", "8", ",", "12", ",", "20"}], "}"}]], "Output",
 CellChangeTimes->{
  3.392105872484*^9, 3.392108944289*^9, 28057195953125000000000, 
   3.428994649578125*^9, 3.429001978640625*^9, 3.4319286012200003`*^9, 
   3.4319288627469997`*^9, 3.43193100994*^9, 3.4319312069449997`*^9, 
   3.43193205963*^9, 3.43228971346875*^9, 3.434098175109375*^9, 
   3.4348601770034485`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListDensityPlot", "[", 
  RowBox[{"node", ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4600285857116003`*^9, 3.4600285996296*^9}}],

Cell[BoxData[
 RowBox[{"ListDensityPlot", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"BitAnd", "[", 
     RowBox[{"node", ",", "8"}], "]"}], "]"}], ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.429001983734375*^9, 3.42900198884375*^9}, {
  3.43192908301*^9, 3.4319290881429996`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Transpose", "[", "node", "]"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.431930739873*^9, 3.431930740216*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Transpose", "[", 
   RowBox[{"BitAnd", "[", 
    RowBox[{"node", ",", "20"}], "]"}], "]"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.4319290939560003`*^9, 3.431929095783*^9}, {
  3.431930691799*^9, 3.431930692159*^9}, {3.434107868828125*^9, 
  3.434107870359375*^9}}],

Cell[BoxData[
 RowBox[{"ListDensityPlot", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"BitAnd", "[", 
    RowBox[{
     RowBox[{"nm", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", "8"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.428994772171875*^9, 3.428994806703125*^9}, {
   3.428999200109375*^9, 3.4289992294375*^9}, 3.42900097078125*^9, {
   3.42960926115625*^9, 3.429609263078125*^9}, {3.434860300057285*^9, 
   3.4348603030570736`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ghost", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"n1", "=", 
  RowBox[{
   RowBox[{"First", "[", 
    RowBox[{"Dimensions", "[", "node", "]"}], "]"}], "-", 
   RowBox[{"2", "ghost"}]}]}]}], "Input",
 CellChangeTimes->{{3.428077364137*^9, 3.4280773715030003`*^9}, {
  3.4280774806429996`*^9, 3.428077481606*^9}, {3.4293355576612*^9, 
  3.4293355580772*^9}, {3.4314198975380974`*^9, 3.4314198990830975`*^9}, {
  3.432280379508*^9, 3.432280379606*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"nm", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "\[Transpose]"], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.434108499953125*^9, 3.434108581078125*^9}, 
   3.434108703421875*^9, 3.434108776125*^9, 3.434109233875*^9, {
   3.434109856234375*^9, 3.434109893046875*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"5", "5", "5", "5", "4", "4", "4", "4", "4", "4", "4", "4", "4", "4", 
     "4", "4", "4", "4", "4", "4", "4", "4", "4", "4", "5", "5", "5", "5"},
    {"5", "5", "5", "21", "20", "20", "20", "20", "20", "20", "20", "20", 
     "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", 
     "21", "5", "5", "5"},
    {"21", "21", "21", "21", "20", "20", "20", "20", "20", "20", "20", "20", 
     "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", 
     "21", "21", "21", "21"},
    {"21", "21", "21", "21", "20", "20", "20", "20", "20", "20", "20", "20", 
     "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", 
     "21", "21", "21", "21"},
    {"21", "21", "21", "21", "20", "20", "12", "12", "12", "8", "8", "8", "8",
      "8", "8", "8", "8", "8", "8", "12", "12", "12", "20", "20", "21", "21", 
     "21", "21"},
    {"21", "21", "21", "13", "12", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "12", "13", "21", "21",
      "21"},
    {"21", "13", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "13", "21"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"9", "9", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "9", "9"},
    {"21", "13", "9", "9", "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "9", "9", "13", "21"},
    {"21", "21", "21", "13", "12", "8", "8", "8", "8", "8", "8", "8", "8", 
     "8", "8", "8", "8", "8", "8", "8", "8", "8", "8", "12", "13", "21", "21",
      "21"},
    {"21", "21", "21", "21", "20", "20", "12", "12", "12", "8", "8", "8", "8",
      "8", "8", "8", "8", "8", "8", "12", "12", "12", "20", "20", "21", "21", 
     "21", "21"},
    {"21", "21", "21", "21", "20", "20", "20", "20", "20", "20", "20", "20", 
     "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", 
     "21", "21", "21", "21"},
    {"21", "21", "21", "21", "20", "20", "20", "20", "20", "20", "20", "20", 
     "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", 
     "21", "21", "21", "21"},
    {"5", "5", "5", "21", "20", "20", "20", "20", "20", "20", "20", "20", 
     "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", "20", 
     "21", "5", "5", "5"},
    {"5", "5", "5", "5", "4", "4", "4", "4", "4", "4", "4", "4", "4", "4", 
     "4", "4", "4", "4", "4", "4", "4", "4", "4", "4", "5", "5", "5", "5"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.7]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.434109860375*^9, 3.43410989334375*^9}, 
   3.4348601948146944`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"node", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"24", ";;", "30"}], ",", 
      RowBox[{"2", ";;", "8"}]}], "]"}], "]"}], "\[Transpose]"], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.434108043765625*^9, 3.434108072109375*^9}, {
  3.434108825703125*^9, 3.434108838640625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"gc", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"Circle", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         FractionBox["n1", "2"], "+", "ghost", "+", 
         RowBox[{"2", 
          FractionBox["1", "2"]}]}], ",", 
        RowBox[{
         FractionBox["n1", "2"], "+", "ghost", "+", 
         RowBox[{"2", 
          FractionBox["1", "2"]}]}]}], "}"}], ",", 
      FractionBox["n1", "2"]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gc3d", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        FractionBox["n1", "2"], "+", "ghost", "+", 
        FractionBox["1", "2"], "+", 
        RowBox[{
         FractionBox["n1", "2"], 
         RowBox[{"Sin", "[", "t", "]"}]}]}], ",", 
       RowBox[{
        FractionBox["n1", "2"], "+", "ghost", "+", 
        FractionBox["1", "2"], "+", 
        RowBox[{
         FractionBox["n1", "2"], 
         RowBox[{"Cos", "[", "t", "]"}]}]}], ",", "30"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.428077485689*^9, {3.428083369108*^9, 3.42808338116*^9}, {
   3.428083572459*^9, 3.4280836099709997`*^9}, {3.4280836865629997`*^9, 
   3.428083692738*^9}, {3.428083741951*^9, 3.428083745571*^9}, {
   3.4293357393342*^9, 3.4293357531412*^9}, {3.431929004266*^9, 
   3.431929044573*^9}, {3.4319312692019997`*^9, 3.4319313658389997`*^9}, {
   3.432280093749*^9, 3.4322801100880003`*^9}, {3.432281542251*^9, 
   3.432281565802*^9}, {3.43228804875*^9, 3.432288060765625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"grnode", "[", "type_", "]"}], ":=", 
  RowBox[{"ListPointPlot3D", "[", 
   RowBox[{
    RowBox[{"BitAnd", "[", 
     RowBox[{"node", ",", "type"}], "]"}], ",", 
    RowBox[{"ColorFunction", "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Hue", "[", 
        RowBox[{"1", "-", "#3"}], "]"}], "&"}], ")"}]}], ",", 
    RowBox[{"ViewPoint", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "\[Infinity]"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"PointSize", "[", "Large", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.428083921005*^9, 3.428083929748*^9}, {3.428084115016*^9,
   3.428084121717*^9}, {3.4280841777679996`*^9, 3.428084281546*^9}, {
  3.4280844124230003`*^9, 3.428084424308*^9}, {3.428084489229*^9, 
  3.4280844895179996`*^9}, {3.4280847956809998`*^9, 3.42808479595*^9}, {
  3.43192914437*^9, 3.431929148252*^9}, {3.431930706632*^9, 
  3.431930721234*^9}, {3.431930790249*^9, 3.43193080291*^9}}],

Cell[BoxData[
 RowBox[{"ArrayPlot", "[", 
  RowBox[{"BitAnd", "[", 
   RowBox[{"node", ",", "20"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.43409818140625*^9, 3.434098185140625*^9}, {
   3.434098274921875*^9, 3.434098310359375*^9}, 3.4341028263125*^9, {
   3.434107842203125*^9, 3.434107846171875*^9}}],

Cell[BoxData[
 RowBox[{"ArrayPlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"20", 
      RowBox[{"\[LeftFloor]", 
       FractionBox[
        RowBox[{"i", "-", "1"}], "20"], "\[RightFloor]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "60"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "60"}], "}"}]}], "]"}], "+", 
   RowBox[{"WithoutFict", "@", "rr"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.43410690603125*^9, 3.4341069510625*^9}, {
  3.434106987453125*^9, 3.43410699590625*^9}, {3.4341070445625*^9, 
  3.434107074*^9}, {3.43410718896875*^9, 3.434107189015625*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Graphics3D", "[", 
    RowBox[{"Point", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"rr", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"First", "[", "#", "]"}], ",", 
              RowBox[{"Last", "[", "#", "]"}]}], "]"}], "]"}], "+", 
           RowBox[{"20", 
            RowBox[{"\[LeftFloor]", 
             FractionBox[
              RowBox[{
               RowBox[{"First", "[", "#", "]"}], "-", "1"}], "20"], 
             "\[RightFloor]"}]}]}], ",", 
          RowBox[{"rz", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"First", "[", "#", "]"}], ",", 
             RowBox[{"Last", "[", "#", "]"}]}], "]"}], "]"}], ",", "1"}], 
         "}"}], "&"}], "/@", 
       RowBox[{"Position", "[", 
        RowBox[{"node", ",", "12"}], "]"}]}], "+", "1"}], "]"}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.43410266859375*^9, 3.43410267271875*^9}, {
  3.434107129203125*^9, 3.43410714021875*^9}, {3.434107177921875*^9, 
  3.434107194765625*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"grnode", "[", "4", "]"}], ",", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"Point", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"rr", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"First", "[", "#", "]"}], ",", 
              RowBox[{"Last", "[", "#", "]"}]}], "]"}], "]"}], "+", 
           RowBox[{"20", 
            RowBox[{"\[LeftFloor]", 
             FractionBox[
              RowBox[{
               RowBox[{"First", "[", "#", "]"}], "-", "5"}], "20"], 
             "\[RightFloor]"}]}]}], ",", 
          RowBox[{"rz", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"First", "[", "#", "]"}], ",", 
             RowBox[{"Last", "[", "#", "]"}]}], "]"}], "]"}], ",", "1"}], 
         "}"}], "&"}], "/@", 
       RowBox[{"Position", "[", 
        RowBox[{"node", ",", "20"}], "]"}]}], "+", "1"}], "]"}], "]"}], ",", 
   "gc3d", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.4280773839110003`*^9, {3.428077497028*^9, 3.4280774971400003`*^9}, {
   3.428077609153*^9, 3.428077611519*^9}, {3.428077763602*^9, 
   3.428077772797*^9}, {3.428077808715*^9, 3.4280779156689997`*^9}, {
   3.428077991359*^9, 3.428078043461*^9}, {3.428083327146*^9, 
   3.428083390579*^9}, {3.428083710093*^9, 3.4280837101940002`*^9}, {
   3.428083861558*^9, 3.4280838682209997`*^9}, {
   3.429335, 22000000000, 3.4293355924812*^9}, {3.4294190074370003`*^9, 
   3.429419098513*^9}, {3.429419959782*^9, 3.4294199673*^9}, 
   3.429420257362*^9, {3.4319291553789997`*^9, 3.431929188631*^9}, 
   3.431930771179*^9, {3.4319313745699997`*^9, 3.431931418416*^9}, {
   3.4319320788269997`*^9, 3.431932106868*^9}, {3.431932189024*^9, 
   3.431932189461*^9}, {3.431932219699*^9, 3.431932219895*^9}, {
   3.4322897259375*^9, 3.432289729546875*^9}, {3.434102153484375*^9, 
   3.43410215353125*^9}, {3.4341026340625*^9, 3.43410266328125*^9}, {
   3.434102725078125*^9, 3.434102726640625*^9}, {3.434107249171875*^9, 
   3.4341073106875*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPointPlot3D", "[", 
    RowBox[{
     RowBox[{"Cut3D", "[", 
      RowBox[{"vy", ",", "2", ",", "26"}], "]"}], ",", 
     RowBox[{"ColorFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"GrayLevel", "[", "#3", "]"}], "&"}], ")"}]}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "\[Infinity]"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"PointSize", "[", "Large", "]"}]}]}], "]"}], ",", "gc3d", ",", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"Point", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"rr", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"First", "[", "#", "]"}], ",", 
             RowBox[{"Last", "[", "#", "]"}]}], "]"}], "]"}], ",", 
          RowBox[{"rz", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"First", "[", "#", "]"}], ",", 
             RowBox[{"Last", "[", "#", "]"}]}], "]"}], "]"}], ",", "1"}], 
         "}"}], "&"}], "/@", 
       RowBox[{"Position", "[", 
        RowBox[{"node", ",", "20"}], "]"}]}], "+", "1"}], "]"}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4322800052*^9, 3.432280015601*^9}, {
  3.4322801394890003`*^9, 3.432280170836*^9}, {3.4322805876219997`*^9, 
  3.4322805877869997`*^9}, {3.432280619623*^9, 3.4322806470889997`*^9}, {
  3.43228149283*^9, 3.432281498602*^9}, {3.432281625172*^9, 
  3.432281625352*^9}, {3.432289754640625*^9, 3.4322897559375*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPointPlot3D", "[", 
    RowBox[{"node", ",", 
     RowBox[{"ColorFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Hue", "[", 
         RowBox[{"1", "-", "#3"}], "]"}], "&"}], ")"}]}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "\[Infinity]"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"PointSize", "[", "Large", "]"}]}]}], "]"}], ",", "gc3d", ",", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"Point", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"rr", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"First", "[", "#", "]"}], ",", 
             RowBox[{"Last", "[", "#", "]"}]}], "]"}], "]"}], ",", 
          RowBox[{"rz", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"First", "[", "#", "]"}], ",", 
             RowBox[{"Last", "[", "#", "]"}]}], "]"}], "]"}], ",", "1"}], 
         "}"}], "&"}], "/@", 
       RowBox[{"Position", "[", 
        RowBox[{"node", ",", "20"}], "]"}]}], "+", "1"}], "]"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.4280773839110003`*^9, {3.428077497028*^9, 3.4280774971400003`*^9}, {
   3.428077609153*^9, 3.428077611519*^9}, {3.428077763602*^9, 
   3.428077772797*^9}, {3.428077808715*^9, 3.4280779156689997`*^9}, {
   3.428077991359*^9, 3.428078043461*^9}, {3.428083327146*^9, 
   3.428083390579*^9}, {3.428083710093*^9, 3.4280837101940002`*^9}, {
   3.428083861558*^9, 3.4280838682209997`*^9}, {3.4293355921122*^9, 
   3.4293355924812*^9}, {3.4294190074370003`*^9, 3.429419098513*^9}, {
   3.429419959782*^9, 3.4294199673*^9}, 3.429420257362*^9}],

Cell[BoxData[
 RowBox[{"ListDensityPlot", "[", 
  RowBox[{"node", ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "GrayLevel"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "35"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4293360664982*^9, 3.4293360668182*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<cells-big.eps\>\"", ",", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ListDensityPlot", "[", 
        RowBox[{"node", ",", 
         RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", 
         RowBox[{"ColorFunction", "\[Rule]", "GrayLevel"}]}], "]"}], ",", 
       "gc"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "15"}], "}"}]}], "}"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4293356545112*^9, 3.4293357143052*^9}, {
  3.4293357756092*^9, 3.4293358568882*^9}, {3.4293358872722*^9, 
  3.4293359051892*^9}, {3.4293359808422003`*^9, 3.4293360532602*^9}, {
  3.4293360863792*^9, 3.4293361216521997`*^9}}],

Cell[BoxData["\<\"cells-big.eps\"\>"], "Output",
 CellChangeTimes->{{3.4293356517542*^9, 3.4293357146472*^9}, {
  3.4293357463152*^9, 3.4293357557972*^9}, {3.4293357911462*^9, 
  3.4293358127752*^9}, {3.4293358508862*^9, 3.4293358572102003`*^9}, {
  3.4293358932972*^9, 3.4293359061462*^9}, {3.4293359851302*^9, 
  3.4293360535132*^9}, {3.4293360868942003`*^9, 3.4293361228332*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DisplayTogether", "[", 
   RowBox[{
    RowBox[{"ListDensityPlot", "[", "node", "]"}], ",", "gc"}], "]"}], 
  ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ListDensityPlot", "/@", 
   RowBox[{"{", 
    RowBox[{"node", ",", "rr", ",", "rz"}], "}"}]}], ";"}]], "Input"],

Cell[BoxData[{
 RowBox[{"ListContourPlot", "[", "node", "]"}], "\n", 
 RowBox[{"ListContourPlot", "[", "rr", "]"}], "\n", 
 RowBox[{"ListContourPlot", "[", "rz", "]"}]}], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["\:041f\:0440\:043e\:0432\:0435\:0440\:043a\:0430 \:0434\:0438\:0432\
\:0435\:0440\:0433\:0435\:043d\:0446\:0438\:0438", "Subsection",
 CellChangeTimes->{{3.419768649467*^9, 3.419768652326*^9}, {
  3.4198327043120003`*^9, 3.419832706764*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ListPlot3D", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"Cut3D", "[", 
       RowBox[{"GetInner", "@", "#"}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"PD", "[", 
     RowBox[{"vx", ",", "ghost", ",", "0.2", ",", "1"}], "]"}], ",", 
    RowBox[{
     RowBox[{"PD", "[", 
      RowBox[{"vx", ",", "ghost", ",", "0.2", ",", "1"}], "]"}], "+", 
     RowBox[{"PD", "[", 
      RowBox[{"vy", ",", "ghost", ",", "0.2", ",", "2"}], "]"}], "+", 
     RowBox[{"PD", "[", 
      RowBox[{"vz", ",", "ghost", ",", "0.2", ",", "3"}], "]"}]}], ",", 
    RowBox[{"PD", "[", 
     RowBox[{"vz", ",", "ghost", ",", "0.2", ",", "3"}], "]"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.419769967547*^9, 3.419769984947*^9}, {3.419770036729*^9,
   3.4197700392790003`*^9}, {3.419770071549*^9, 3.419770091775*^9}, {
  3.419770532795*^9, 3.419770534632*^9}, {3.419770639101*^9, 
  3.4197706462679996`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dd", "=", 
   RowBox[{"divd", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], ",", "ghost"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dds", "=", 
   RowBox[{"GetInner", "[", "dd", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.416843116771*^9, 3.416843172394*^9}, {3.416843205352*^9,
    3.416843212222*^9}, {3.416843410635*^9, 3.416843423177*^9}, {
   3.419768302539*^9, 3.419768306067*^9}, 3.419768571259*^9, {
   3.4197706916940002`*^9, 3.4197707619519997`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Max", "/@", 
  RowBox[{"Abs", "/@", 
   RowBox[{"{", 
    RowBox[{"dd", ",", "dds"}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.419768256684*^9, 3.419768265854*^9}, 3.419768314601*^9, 
   3.4197706316549997`*^9, {3.419770680014*^9, 3.419770685009*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.2471282499999998`", ",", "0.0035034166666670806`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.419768258392*^9, 3.419768266171*^9}, 
   3.4197683154300003`*^9, 3.419768467604*^9, 3.4197685748780003`*^9, 
   3.419770573027*^9, 3.419770632039*^9, {3.419770685326*^9, 
   3.419770695442*^9}, {3.419770725829*^9, 3.419770756559*^9}, 
   3.419831174742*^9, 3.419839870648*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot3D", "[", 
  RowBox[{
   RowBox[{"WithoutFict", "@", 
    RowBox[{"Transpose", "[", 
     RowBox[{"Cut3D", "[", 
      RowBox[{
       RowBox[{"GetInner", "@", "dds"}], ",", "2", ",", 
       RowBox[{"ghost", "+", "1"}]}], "]"}], "]"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.419916726209*^9, 3.41991673045*^9}, {3.41991683451*^9, 
  3.419916852961*^9}, {3.4199168844440002`*^9, 3.419916936637*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ListPlot3D", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"Cut3D", "[", 
       RowBox[{"dds", ",", "2", ",", "#"}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "&"}], "/@", 
  RowBox[{"Range", "[", 
   RowBox[{
    RowBox[{"Dimensions", "[", "vx", "]"}], "\[LeftDoubleBracket]", "2", 
    "\[RightDoubleBracket]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4168434262530003`*^9, 3.416843477865*^9}, {
  3.419768472024*^9, 3.419768506915*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ListPlot3D", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"Cut3D", "[", 
       RowBox[{"vx", ",", "2", ",", "#"}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "&"}], "/@", 
  RowBox[{"Range", "[", 
   RowBox[{
    RowBox[{"Dimensions", "[", "vx", "]"}], "\[LeftDoubleBracket]", "2", 
    "\[RightDoubleBracket]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.416842930251*^9, 3.41684297398*^9}, {3.416843077602*^9, 
   3.416843078745*^9}, 3.419768589224*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"l", "=", 
  RowBox[{"Monitor", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ReadSection", "[", 
         RowBox[{
         "nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
         "]"}], ";", 
        RowBox[{"Max", "[", 
         RowBox[{"Abs", "[", 
          RowBox[{"GetInner", "[", 
           RowBox[{"divd", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], ",", "ghost"}], 
            "]"}], "]"}], "]"}], "]"}]}], ")"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", "nums", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"nums", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
     "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4199148958120003`*^9, 3.4199149947060003`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.0008961975000001434`", ",", "0.0008960683333346659`", ",", 
   "0.0008960700000013339`", ",", "0.0008960700000006053`", ",", 
   "0.0008961150000006053`", ",", "0.022576889602233783`", ",", 
   "0.0008961066666680008`", ",", "0.0008961150000006053`", ",", 
   "0.0008961133333339388`", ",", "0.0008961150000002097`", ",", 
   "0.0008960700000013339`", ",", "3.607919416666668`", ",", 
   "0.0008961150000002097`", ",", "0.0008960700000006053`", ",", 
   "0.0008961150000013338`", ",", "0.0008961150000006053`", ",", 
   "0.0008961150000006053`", ",", "0.0008961150000002097`", ",", 
   "0.0008960700000013339`", ",", "0.0008961150000013338`", ",", 
   "0.0008960700000006053`", ",", "0.0008961150000013338`", ",", 
   "0.0018073408333334983`", ",", "0.0017881733333339953`", ",", 
   "0.0017905316666668573`", ",", "0.0017909650000003134`", ",", 
   "0.001790910833333645`", ",", "0.0017909325000001913`", ",", 
   "0.0017910083333335244`", ",", "0.0017909783333336495`", ",", 
   "0.0017909408333335248`", ",", "0.001790970000000191`", ",", 
   "0.0017910000000001909`", ",", "0.0017910083333335244`", ",", 
   "0.0017909408333335248`", ",", "0.0017909325000001913`", ",", 
   "0.0017910000000003158`", ",", "0.0017909408333335248`", ",", 
   "0.0017909325000001913`", ",", "0.001790970000000191`", ",", 
   "0.0017910083333336493`", ",", "0.0017909783333335246`", ",", 
   "0.0028128758333337486`", ",", "0.0027098041666673324`", ",", 
   "0.0029774516666670383`", ",", "0.003647513333334672`", ",", 
   "0.004799741666668746`", ",", "0.0064575350000009996`", ",", 
   "0.009485254166667664`", ",", "0.02170723000000036`", ",", 
   "0.04374576666666703`", ",", "0.10449572500000034`", ",", 
   "0.24774220750000103`", ",", "0.5339092833333345`", ",", 
   "1.1459176750000009`", ",", "2.192252750000001`", ",", 
   "3.276425041666668`", ",", "8.07029766666667`", ",", 
   "19.65088166666667`"}], "}"}]], "Output",
 CellChangeTimes->{3.4199150007539997`*^9, 3.41991505075*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"l", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0.01"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4199150456689997`*^9, 3.419915047318*^9}, {
  3.419916436421*^9, 3.419916459174*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCwBmIQDQEf7BUjWKpuxvraQwUc2FyeiB+JgfE5HKT2q605
DucLONxagswXcdgyT9NfA65fwsFy/afMVLnpUL6Mw7nAu5licHkFNPVKDuuU
n+9SgfNVHEomIMurodmv4VBQ9/IWy10eBwhfC029Dpr79By+7ECWN0Cz3xCN
b4RmnjGa/SZo5pmi2WeGJm/u8GxDWmHnnFgo38IherNcvYoPjG/psGv9zT0c
YTC+lQOPzhy2W+EwvrXDwTvJd+fD+TYOXr+EFbfD+bYOjpl/ejkiYHw7B0uJ
ZeEv4PL2Dvd1dwkfgPMdHFIe/U+5D+M3ODisMQ2b/R8u74hqXoMjmn4nVPsb
nBzemCPrd0ZV3+CM5l4XNPtdHBqzkd3v6vBTFMn9Da4OGzYdN2PnTofKuzlw
PDnOcd8oDSrv5rCmTcRQOyUDKu/u8ITV/3zyw1yovLsDk87Z609WFEPlPRwK
IkyizIuroPIeDhXerc6Muc1QeU+Hi9b7u7OtpkHlPR1OfQ6PupG6DCrv5WCW
VBRpfWAXVN7LYdmkNmeWbeeh8t4OawLvvT4h+hAq7+2wtGPB0bWhn6DyPg7+
7X7nd3cyOkDkfRz2sPOFyplxQfgMvg68i934/ikrQOV9Haye+estWGbsAABu
S+6M
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 59.}, {0, 0.01}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{
  3.419915050829*^9, {3.419916438132*^9, 3.4199164595699997`*^9}}]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
CellGrouping->Manual,
WindowSize->{910, 612},
WindowMargins->{{5, Automatic}, {Automatic, -3}},
ShowSelection->True,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 180, 5, 31, "Input"],
Cell[751, 28, 283, 7, 31, "Input"],
Cell[1037, 37, 145, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[1207, 44, 371, 6, 31, "Input"],
Cell[1581, 52, 209, 3, 30, "Output"]
}, Open  ]],
Cell[1805, 58, 770, 12, 31, "Input"],
Cell[2578, 72, 735, 12, 31, "Input"],
Cell[3316, 86, 1908, 29, 31, "Input"],
Cell[CellGroupData[{
Cell[5249, 119, 172, 3, 31, "Input"],
Cell[5424, 124, 226, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5687, 132, 954, 14, 31, "Input"],
Cell[6644, 148, 740, 12, 30, "Output"]
}, Open  ]],
Cell[7399, 163, 264, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[7688, 173, 214, 3, 71, "Section"],
Cell[7905, 178, 1518, 49, 70, "Input"],
Cell[9426, 229, 807, 24, 92, "Input"],
Cell[10236, 255, 315, 10, 30, "Input"],
Cell[10554, 267, 350, 11, 30, "Input"],
Cell[CellGroupData[{
Cell[10929, 282, 224, 5, 30, "Input"],
Cell[11156, 289, 110, 1, 29, "Output"]
}, Open  ]],
Cell[11281, 293, 182, 3, 30, "Input"],
Cell[11466, 298, 3346, 89, 160, "Input"],
Cell[14815, 389, 896, 24, 30, "Input"],
Cell[15714, 415, 777, 24, 52, "Input"],
Cell[16494, 441, 747, 21, 40, "Input"],
Cell[CellGroupData[{
Cell[17266, 466, 5343, 110, 99, "Input"],
Cell[22612, 578, 47070, 775, 257, "Output"],
Cell[69685, 1355, 49388, 814, 243, "Output"]
}, Open  ]],
Cell[119088, 2172, 1601, 38, 52, "Input"],
Cell[120692, 2212, 600, 17, 30, "Input"],
Cell[121295, 2231, 1627, 39, 72, "Input"],
Cell[122925, 2272, 1420, 37, 103, "Input"],
Cell[CellGroupData[{
Cell[124370, 2313, 266, 3, 36, "Subsection"],
Cell[124639, 2318, 588, 15, 30, "Input"],
Cell[125230, 2335, 733, 20, 30, "Input"],
Cell[125966, 2357, 187, 4, 30, "Input"],
Cell[126156, 2363, 621, 11, 30, "Input"],
Cell[126780, 2376, 574, 11, 30, "Input"],
Cell[127357, 2389, 396, 8, 30, "Input"],
Cell[127756, 2399, 819, 19, 40, "Input"],
Cell[CellGroupData[{
Cell[128600, 2422, 1181, 26, 52, "Input"],
Cell[129784, 2450, 660, 12, 23, "Print"],
Cell[130447, 2464, 708, 13, 23, "Print"],
Cell[131158, 2479, 623, 12, 23, "Print"],
Cell[131784, 2493, 512, 8, 29, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132333, 2506, 633, 18, 52, "Input"],
Cell[132969, 2526, 389, 7, 23, "Print"],
Cell[133361, 2535, 455, 10, 26, "Print"],
Cell[133819, 2547, 361, 7, 23, "Print"],
Cell[134183, 2556, 202, 3, 29, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134422, 2564, 171, 4, 35, "Input"],
Cell[134596, 2570, 170, 3, 29, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134803, 2578, 217, 5, 30, "Input"],
Cell[135023, 2585, 143, 2, 29, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[135227, 2594, 164, 2, 41, "Section"],
Cell[135394, 2598, 280, 5, 31, "Input"],
Cell[135677, 2605, 869, 20, 52, "Input"],
Cell[136549, 2627, 2031, 43, 92, "Input"],
Cell[CellGroupData[{
Cell[138605, 2674, 4671, 84, 92, "Input"],
Cell[143279, 2760, 609, 11, 23, "Print"],
Cell[143891, 2773, 668, 13, 23, "Print"],
Cell[144562, 2788, 904, 17, 23, "Print"],
Cell[145469, 2807, 674, 13, 23, "Print"]
}, Open  ]],
Cell[146158, 2823, 12225, 198, 112, "Input"],
Cell[CellGroupData[{
Cell[158408, 3025, 287, 4, 29, "Text"],
Cell[158698, 3031, 1442, 34, 101, "Input"],
Cell[160143, 3067, 1213, 34, 101, "Input"],
Cell[161359, 3103, 341, 10, 31, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[161737, 3118, 437, 10, 25, "Input"],
Cell[162177, 3130, 316, 7, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[162530, 3142, 449, 10, 31, "Input"],
Cell[162982, 3154, 227, 6, 30, "Output"]
}, Open  ]],
Cell[163224, 3163, 197, 4, 31, "Input"],
Cell[163424, 3169, 613, 14, 31, "Input"],
Cell[CellGroupData[{
Cell[164062, 3187, 536, 8, 36, "Subsection"],
Cell[164601, 3197, 1637, 42, 98, "Input"],
Cell[166241, 3241, 371, 10, 31, "Input"],
Cell[166615, 3253, 832, 16, 35, "Input"],
Cell[167450, 3271, 372, 10, 31, "Input"],
Cell[167825, 3283, 392, 11, 31, "Input"],
Cell[168220, 3296, 553, 11, 31, "Input"],
Cell[168776, 3309, 1634, 29, 52, "Input"],
Cell[CellGroupData[{
Cell[170435, 3342, 1310, 23, 35, "Input"],
Cell[171748, 3367, 15002, 309, 386, "Output"]
}, Open  ]],
Cell[186765, 3679, 848, 20, 40, "Input"],
Cell[187616, 3701, 513, 10, 31, "Input"],
Cell[188132, 3713, 3096, 50, 57, "Input"],
Cell[191231, 3765, 684, 13, 31, "Input"],
Cell[191918, 3780, 2199, 36, 57, "Input"],
Cell[CellGroupData[{
Cell[194142, 3820, 183, 3, 31, "Input"],
Cell[194328, 3825, 880, 23, 70, "Output"]
}, Closed]],
Cell[195223, 3851, 132, 2, 25, "Input"],
Cell[195358, 3855, 1892, 32, 52, "Input"],
Cell[197253, 3889, 985, 21, 43, "Input"],
Cell[198241, 3912, 131, 2, 31, "Input"],
Cell[198375, 3916, 353, 8, 35, "Input"],
Cell[198731, 3926, 975, 21, 31, "Input"],
Cell[199709, 3949, 830, 22, 52, "Input"],
Cell[200542, 3973, 1346, 35, 99, "Input"],
Cell[201891, 4010, 1065, 21, 92, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[202993, 4036, 452, 6, 36, "Subsection"],
Cell[CellGroupData[{
Cell[203470, 4046, 203, 6, 31, "Input"],
Cell[203676, 4054, 563, 10, 30, "Output"]
}, Open  ]],
Cell[204254, 4067, 134, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[204413, 4074, 259, 3, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[204697, 4081, 829, 26, 70, "Input"],
Cell[205529, 4109, 266, 6, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205832, 4120, 1090, 34, 70, "Input"],
Cell[206925, 4156, 417, 8, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[207379, 4169, 547, 16, 70, "Input"],
Cell[207929, 4187, 232, 6, 70, "Output"]
}, Open  ]],
Cell[208176, 4196, 785, 23, 70, "Input"],
Cell[208964, 4221, 1371, 37, 70, "Input"]
}, Closed]],
Cell[210350, 4261, 1181, 35, 94, "Input"],
Cell[211534, 4298, 505, 17, 45, "Input"],
Cell[212042, 4317, 789, 27, 66, "Input"],
Cell[212834, 4346, 256, 8, 45, "Input"],
Cell[CellGroupData[{
Cell[213115, 4358, 104, 1, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[213244, 4363, 286, 7, 31, "Input"],
Cell[213533, 4372, 304, 7, 23, "Print"]
}, Open  ]],
Cell[213852, 4382, 378, 9, 31, "Input"],
Cell[CellGroupData[{
Cell[214255, 4395, 308, 10, 31, "Input"],
Cell[214566, 4407, 149, 4, 30, "Output"]
}, Open  ]],
Cell[214730, 4414, 281, 7, 31, "Input"],
Cell[215014, 4423, 255, 7, 31, "Input"],
Cell[CellGroupData[{
Cell[215294, 4434, 488, 17, 47, "Input"],
Cell[215785, 4453, 46, 0, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215868, 4458, 63, 1, 31, "Input"],
Cell[215934, 4461, 47, 0, 30, "Output"]
}, Open  ]],
Cell[215996, 4464, 256, 9, 33, "Input"],
Cell[216255, 4475, 640, 21, 68, "Input"],
Cell[216898, 4498, 3261, 81, 292, "Input"],
Cell[220162, 4581, 240, 7, 31, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[220439, 4593, 331, 7, 25, "Input"],
Cell[220773, 4602, 333, 7, 23, "Print"]
}, Open  ]],
Cell[221121, 4612, 438, 12, 31, "Input"],
Cell[CellGroupData[{
Cell[221584, 4628, 96, 1, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[221705, 4633, 730, 16, 70, "Input"],
Cell[222438, 4651, 227, 4, 70, "Print"],
Cell[222668, 4657, 285, 6, 70, "Print"],
Cell[222956, 4665, 302, 7, 70, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[223307, 4678, 376, 13, 41, "Input"],
Cell[223686, 4693, 90, 1, 30, "Output"]
}, Open  ]],
Cell[223791, 4697, 536, 14, 31, "Input"],
Cell[224330, 4713, 572, 16, 31, "Input"],
Cell[224905, 4731, 854, 23, 74, "Input"],
Cell[225762, 4756, 388, 9, 31, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[226187, 4770, 307, 4, 28, "Subsection"],
Cell[226497, 4776, 387, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[226909, 4790, 2160, 44, 105, "Input"],
Cell[229072, 4836, 126, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[229235, 4842, 2791, 55, 92, "Input"],
Cell[232029, 4899, 352, 5, 30, "Output"]
}, Open  ]],
Cell[232396, 4907, 229, 5, 31, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[232662, 4917, 231, 3, 28, "Subsection"],
Cell[232896, 4922, 1632, 47, 72, "Input"],
Cell[234531, 4971, 2171, 55, 101, "Input"],
Cell[236705, 5028, 3879, 98, 161, "Input"],
Cell[240587, 5128, 2219, 56, 101, "Input"],
Cell[242809, 5186, 963, 23, 52, "Input"],
Cell[243775, 5211, 269, 7, 31, "Input"],
Cell[244047, 5220, 234, 5, 31, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[244330, 5231, 311, 6, 71, "Section"],
Cell[CellGroupData[{
Cell[244666, 5241, 148, 2, 36, "Subsection"],
Cell[244817, 5245, 823, 20, 52, "Input"],
Cell[CellGroupData[{
Cell[245665, 5269, 227, 3, 27, "Subsubsection"],
Cell[245895, 5274, 3711, 104, 310, "Input"],
Cell[249609, 5380, 626, 19, 30, "Input"],
Cell[250238, 5401, 515, 15, 30, "Input"],
Cell[250756, 5418, 124, 3, 30, "Input"],
Cell[250883, 5423, 134, 3, 30, "Input"],
Cell[251020, 5428, 808, 27, 68, "Input"],
Cell[251831, 5457, 256, 8, 47, "Input"]
}, Closed]],
Cell[252102, 5468, 4635, 103, 166, "Input"],
Cell[CellGroupData[{
Cell[256762, 5575, 1347, 35, 92, "Input"],
Cell[258112, 5612, 775, 13, 50, "Output"],
Cell[258890, 5627, 316, 5, 30, "Output"]
}, Open  ]],
Cell[259221, 5635, 3137, 75, 312, "Input"],
Cell[262361, 5712, 201, 4, 31, "Input"],
Cell[CellGroupData[{
Cell[262587, 5720, 391, 7, 31, "Input"],
Cell[262981, 5729, 288, 8, 30, "Output"]
}, Open  ]],
Cell[263284, 5740, 271, 6, 31, "Input"],
Cell[263558, 5748, 536, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[264119, 5762, 372, 10, 31, "Input"],
Cell[264494, 5774, 95, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[264626, 5780, 562, 13, 31, "Input"],
Cell[265191, 5795, 94, 1, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[265334, 5802, 169, 2, 28, "Subsection"],
Cell[265506, 5806, 681, 18, 31, "Input"],
Cell[266190, 5826, 920, 25, 52, "Input"],
Cell[267113, 5853, 1697, 36, 31, "Input"],
Cell[268813, 5891, 2703, 75, 152, "Input"],
Cell[271519, 5968, 1932, 49, 72, "Input"],
Cell[273454, 6019, 1371, 33, 72, "Input"],
Cell[274828, 6054, 1908, 47, 76, "Input"],
Cell[276739, 6103, 3836, 87, 152, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[280612, 6195, 226, 3, 28, "Subsection"],
Cell[CellGroupData[{
Cell[280863, 6202, 174, 3, 31, "Input"],
Cell[281040, 6207, 547, 10, 30, "Output"]
}, Open  ]],
Cell[281602, 6220, 282, 6, 31, "Input"],
Cell[281887, 6228, 164, 4, 31, "Input"],
Cell[282054, 6234, 552, 13, 31, "Input"],
Cell[282609, 6249, 1727, 47, 52, "Input"],
Cell[284339, 6298, 490, 11, 31, "Input"],
Cell[284832, 6311, 917, 18, 52, "Input"],
Cell[285752, 6331, 434, 11, 35, "Input"],
Cell[286189, 6344, 2834, 63, 72, "Input"],
Cell[289026, 6409, 1126, 26, 52, "Input"],
Cell[290155, 6437, 162, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[290342, 6444, 173, 3, 31, "Input"],
Cell[290518, 6449, 227, 5, 31, "Input"]
}, Open  ]],
Cell[290760, 6457, 1907, 39, 57, "Input"],
Cell[292670, 6498, 1557, 36, 77, "Input"],
Cell[294230, 6536, 907, 20, 52, "Input"],
Cell[295140, 6558, 916, 25, 31, "Input"],
Cell[296059, 6585, 546, 14, 38, "Input"],
Cell[296608, 6601, 886, 21, 31, "Input"],
Cell[297497, 6624, 293, 6, 31, "Input"],
Cell[297793, 6632, 543, 12, 31, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[298385, 6650, 280, 3, 71, "Section"],
Cell[CellGroupData[{
Cell[298690, 6657, 340, 10, 33, "Input"],
Cell[299033, 6669, 295, 10, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[299365, 6684, 545, 14, 35, "Input"],
Cell[299913, 6700, 18221, 306, 266, 13083, 220, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[318149, 7009, 4586, 123, 328, "Input"],
Cell[CellGroupData[{
Cell[322760, 7136, 222, 3, 36, "Subsection"],
Cell[322985, 7141, 1898, 55, 72, "Input"],
Cell[324886, 7198, 731, 19, 52, "Input"],
Cell[325620, 7219, 673, 18, 52, "Input"],
Cell[326296, 7239, 781, 12, 31, "Input"],
Cell[CellGroupData[{
Cell[327102, 7255, 1658, 33, 31, "Input"],
Cell[328763, 7290, 168, 4, 30, "Output"]
}, Open  ]],
Cell[328946, 7297, 1713, 33, 56, "Input"],
Cell[330662, 7332, 809, 19, 35, "Input"],
Cell[331474, 7353, 1194, 27, 31, "Input"],
Cell[332671, 7382, 608, 15, 31, "Input"],
Cell[333282, 7399, 275, 7, 31, "Input"],
Cell[333560, 7408, 380, 10, 31, "Input"],
Cell[333943, 7420, 460, 13, 47, "Input"],
Cell[CellGroupData[{
Cell[334428, 7437, 224, 5, 31, "Input"],
Cell[334655, 7444, 1199, 24, 237, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[335891, 7473, 781, 13, 35, "Input"],
Cell[336675, 7488, 1375, 28, 229, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[338087, 7521, 1784, 36, 35, "Input"],
Cell[339874, 7559, 312, 6, 30, "Output"]
}, Open  ]],
Cell[340201, 7568, 360, 9, 31, "Input"],
Cell[340564, 7579, 671, 17, 31, "Input"],
Cell[341238, 7598, 1466, 40, 99, "Input"],
Cell[CellGroupData[{
Cell[342729, 7642, 487, 14, 35, "Input"],
Cell[343219, 7658, 1921, 38, 233, "Output"]
}, Open  ]]
}, Open  ]],
Cell[345167, 7700, 309, 4, 36, "Subsection"],
Cell[345479, 7706, 265, 6, 27, "Input"],
Cell[345747, 7714, 275, 6, 33, "Input"],
Cell[346025, 7722, 849, 21, 53, "Input"],
Cell[346877, 7745, 406, 10, 33, "Input"],
Cell[347286, 7757, 406, 9, 31, "Input"],
Cell[347695, 7768, 486, 11, 31, "Input"],
Cell[CellGroupData[{
Cell[348206, 7783, 1111, 30, 122, "Input"],
Cell[349320, 7815, 681, 10, 23, "Print"]
}, Open  ]],
Cell[350016, 7828, 286, 8, 33, "Input"],
Cell[350305, 7838, 205, 5, 31, "Input"],
Cell[350513, 7845, 1053, 17, 31, "Input"],
Cell[351569, 7864, 1125, 20, 33, "Input"],
Cell[CellGroupData[{
Cell[352719, 7888, 932, 21, 31, "Input"],
Cell[353654, 7911, 2831, 49, 412, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[356522, 7965, 1855, 38, 31, "Input"],
Cell[358380, 8005, 242, 6, 30, "Output"]
}, Open  ]],
Cell[358637, 8014, 981, 24, 45, "Input"],
Cell[359621, 8040, 460, 12, 31, "Input"],
Cell[360084, 8054, 718, 18, 35, "Input"],
Cell[360805, 8074, 375, 10, 31, "Input"],
Cell[361183, 8086, 772, 19, 35, "Input"],
Cell[361958, 8107, 353, 10, 37, "Input"],
Cell[CellGroupData[{
Cell[362336, 8121, 2516, 49, 97, "Input"],
Cell[364855, 8172, 632, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[365524, 8186, 238, 3, 36, "Subsection"],
Cell[365765, 8191, 2568, 62, 132, "Input"],
Cell[368336, 8255, 2162, 50, 72, "Input"],
Cell[370501, 8307, 819, 19, 31, "Input"],
Cell[371323, 8328, 1987, 49, 108, "Input"],
Cell[373313, 8379, 279, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[373617, 8388, 2057, 48, 92, "Input"],
Cell[375677, 8438, 129, 2, 30, "Output"]
}, Open  ]],
Cell[375821, 8443, 2362, 64, 132, "Input"],
Cell[378186, 8509, 3160, 81, 101, "Input"]
}, Open  ]],
Cell[381361, 8593, 2134, 53, 67, "Input"],
Cell[CellGroupData[{
Cell[383520, 8650, 632, 16, 31, "Input"],
Cell[384155, 8668, 1583, 34, 69, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[385775, 8707, 791, 21, 35, "Input"],
Cell[386569, 8730, 4495, 98, 221, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[391101, 8833, 557, 14, 31, "Input"],
Cell[391661, 8849, 24998, 506, 243, "Output"],
Cell[416662, 9357, 65, 1, 31, "Input"],
Cell[416730, 9360, 24503, 501, 244, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[441270, 9866, 199, 2, 36, "Subsection"],
Cell[CellGroupData[{
Cell[441494, 9872, 251, 4, 31, "Input"],
Cell[441748, 9878, 303, 5, 30, "Output"]
}, Open  ]],
Cell[442066, 9886, 964, 27, 35, "Input"],
Cell[443033, 9915, 1123, 33, 57, "Input"],
Cell[444159, 9950, 1363, 38, 81, "Input"],
Cell[445525, 9990, 537, 10, 31, "Input"],
Cell[446065, 10002, 139, 2, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[446231, 10008, 290, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[446546, 10018, 851, 24, 31, "Input"],
Cell[447400, 10044, 3687, 96, 145, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[451124, 10145, 437, 13, 33, "Input"],
Cell[451564, 10160, 2570, 66, 107, "Output"]
}, Open  ]],
Cell[454149, 10229, 237, 4, 31, "Input"],
Cell[454389, 10235, 3025, 76, 92, "Input"],
Cell[CellGroupData[{
Cell[457439, 10315, 178, 2, 71, "Section"],
Cell[CellGroupData[{
Cell[457642, 10321, 257, 3, 36, "Subsection"],
Cell[457902, 10326, 1434, 33, 30, "Input"],
Cell[459339, 10361, 806, 24, 30, "Input"],
Cell[460148, 10387, 850, 25, 30, "Input"],
Cell[461001, 10414, 356, 10, 30, "Input"],
Cell[461360, 10426, 462, 9, 30, "Input"],
Cell[461825, 10437, 667, 12, 30, "Input"],
Cell[462495, 10451, 246, 5, 30, "Input"],
Cell[462744, 10458, 156, 3, 30, "Input"],
Cell[462903, 10463, 437, 10, 33, "Input"],
Cell[463343, 10475, 353, 8, 30, "Input"],
Cell[463699, 10485, 570, 12, 30, "Input"],
Cell[CellGroupData[{
Cell[464294, 10501, 385, 10, 38, "Input"],
Cell[464682, 10513, 485, 10, 447, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[465204, 10528, 795, 21, 30, "Input"],
Cell[466002, 10551, 396, 8, 29, "Output"]
}, Open  ]],
Cell[466413, 10562, 133, 4, 30, "Input"],
Cell[CellGroupData[{
Cell[466571, 10570, 1832, 39, 38, "Input"],
Cell[468406, 10611, 11920, 167, 1032, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[480363, 10783, 330, 9, 30, "Input"],
Cell[480696, 10794, 978, 27, 77, "Output"]
}, Open  ]],
Cell[481689, 10824, 581, 14, 38, "Input"],
Cell[CellGroupData[{
Cell[482295, 10842, 229, 6, 30, "Input"],
Cell[482527, 10850, 161, 3, 29, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[482725, 10858, 289, 8, 30, "Input"],
Cell[483017, 10868, 303, 8, 29, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[483357, 10881, 129, 2, 30, "Input"],
Cell[483489, 10885, 145, 3, 29, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[483671, 10893, 622, 17, 30, "Input"],
Cell[484296, 10912, 1494, 46, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[485827, 10963, 925, 19, 38, "Input"],
Cell[486755, 10984, 325, 8, 374, "Output"]
}, Open  ]],
Cell[487095, 10995, 162, 4, 30, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[487294, 11004, 239, 3, 28, "Subsection"],
Cell[487536, 11009, 618, 19, 92, "Input"],
Cell[488157, 11030, 1188, 25, 30, "Input"],
Cell[CellGroupData[{
Cell[489370, 11059, 95, 2, 30, "Input"],
Cell[489468, 11063, 416, 8, 29, "Output"]
}, Open  ]],
Cell[489899, 11074, 207, 4, 30, "Input"],
Cell[490109, 11080, 351, 8, 30, "Input"],
Cell[490463, 11090, 157, 3, 30, "Input"],
Cell[490623, 11095, 314, 7, 30, "Input"],
Cell[490940, 11104, 461, 11, 30, "Input"],
Cell[491404, 11117, 496, 11, 52, "Input"],
Cell[CellGroupData[{
Cell[491925, 11132, 331, 8, 33, "Input"],
Cell[492259, 11142, 11192, 162, 1032, "Output"]
}, Open  ]],
Cell[503466, 11307, 352, 10, 70, "Input"],
Cell[503821, 11319, 1781, 47, 70, "Input"],
Cell[505605, 11368, 1002, 22, 70, "Input"],
Cell[506610, 11392, 308, 6, 70, "Input"],
Cell[506921, 11400, 621, 16, 70, "Input"],
Cell[507545, 11418, 1203, 33, 70, "Input"],
Cell[508751, 11453, 2153, 49, 70, "Input"],
Cell[510907, 11504, 1649, 41, 70, "Input"],
Cell[512559, 11547, 1781, 44, 70, "Input"],
Cell[514343, 11593, 363, 8, 70, "Input"],
Cell[CellGroupData[{
Cell[514731, 11605, 884, 23, 70, "Input"],
Cell[515618, 11630, 382, 5, 70, "Output"]
}, Open  ]],
Cell[516015, 11638, 161, 5, 70, "Input"],
Cell[516179, 11645, 146, 4, 70, "Input"],
Cell[516328, 11651, 179, 3, 70, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[516544, 11659, 247, 3, 28, "Subsection"],
Cell[516794, 11664, 1044, 26, 52, "Input"],
Cell[517841, 11692, 568, 14, 52, "Input"],
Cell[CellGroupData[{
Cell[518434, 11710, 277, 6, 31, "Input"],
Cell[518714, 11718, 414, 8, 30, "Output"]
}, Open  ]],
Cell[519143, 11729, 485, 11, 31, "Input"],
Cell[519631, 11742, 541, 14, 31, "Input"],
Cell[520175, 11758, 554, 14, 31, "Input"],
Cell[CellGroupData[{
Cell[520754, 11776, 922, 26, 31, "Input"],
Cell[521679, 11804, 2021, 33, 126, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[523737, 11842, 284, 7, 31, "Input"],
Cell[524024, 11851, 1088, 24, 245, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
